From 9d3c32956baab4dc4e1fd114e586b48d850a14c9 Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Tue, 4 Jun 2024 09:59:10 +0200 Subject: show form input --- frontend/app/Form/Input.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'frontend/app/Form/Input.hs') 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 ] ] ] -- cgit v1.2.3