28 lines
579 B
Haskell
28 lines
579 B
Haskell
module Form.Input
|
|
( string,
|
|
)
|
|
where
|
|
|
|
import Data.Text qualified as T
|
|
import Form.Internal
|
|
import Miso
|
|
import Miso.String (fromMisoString, toMisoString)
|
|
|
|
string :: String -> Form T.Text T.Text
|
|
string label =
|
|
Form
|
|
{ view = \i ->
|
|
[ div_ [] $
|
|
[ label_ [] $
|
|
[ text (toMisoString label),
|
|
input_
|
|
[ type_ "text",
|
|
value_ (toMisoString i),
|
|
onInput fromMisoString
|
|
]
|
|
]
|
|
]
|
|
],
|
|
fill = \i -> Right i
|
|
}
|