frontend/app/Form/Input.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

module Form.Input
  ( input,
  )
where

import Data.Text qualified as T
import Form.Internal
import Miso
import Miso.String (fromMisoString, toMisoString)

input :: String -> Form T.Text T.Text
input label =
  Form
    { view = \i ->
        [ div_ [] $
            [ label_ [] $
                [ text (toMisoString label),
                  input_
                    [ type_ "text",
                      value_ (toMisoString i),
                      onInput fromMisoString
                    ]
                ]
            ]
        ],
      fill = \i -> Right i
    }