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