diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2024-06-04 09:59:10 +0200 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2024-06-04 09:59:10 +0200 |
| commit | 9d3c32956baab4dc4e1fd114e586b48d850a14c9 (patch) | |
| tree | d0de8ff50ffe9bfaeeebc58fbca9a76157614fef /frontend/app/Form/Input.hs | |
| parent | 342ebdf61b3b9021b9e58cfce607e96a6e7ae54e (diff) | |
show form input
Diffstat (limited to 'frontend/app/Form/Input.hs')
| -rw-r--r-- | frontend/app/Form/Input.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/frontend/app/Form/Input.hs b/frontend/app/Form/Input.hs index a9648c4..4b1eac8 100644 --- a/frontend/app/Form/Input.hs +++ b/frontend/app/Form/Input.hs @@ -6,7 +6,7 @@ where import Data.Text qualified as T import Form.Internal import Miso -import Miso.String (toMisoString) +import Miso.String (fromMisoString, toMisoString) string :: String -> Form T.Text T.Text string label = @@ -17,7 +17,8 @@ string label = [ text (toMisoString label), input_ [ type_ "text", - value_ (toMisoString i) + value_ (toMisoString i), + onInput fromMisoString ] ] ] |