show form input

2024-06-04 09:59:10 +02:00
parent 342ebdf61b
commit 9d3c32956b
3 changed files with 30 additions and 24 deletions
--- 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
                    ]
                ]
            ]