From 2e67bf911533a66b5a5b7b50481b426adff8c7db Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Fri, 7 Jun 2024 17:08:01 +0200 Subject: reload collections when creating --- frontend/app/Page/EditValue.hs | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'frontend/app/Page/EditValue.hs') diff --git a/frontend/app/Page/EditValue.hs b/frontend/app/Page/EditValue.hs index d5a87e7..43c6f17 100644 --- a/frontend/app/Page/EditValue.hs +++ b/frontend/app/Page/EditValue.hs @@ -15,6 +15,7 @@ import Data.Maybe import Form qualified as F import Miso import Miso.String (toMisoString) +import Effect (Eff) import Schema data Model = Model @@ -41,12 +42,12 @@ data Action | EntityWritten (Either String ()) deriving (Eq, Show) -updateModel :: Action -> Model -> Effect Action Model -updateModel NoOp m = noEff m -updateModel (FormChanged (Just -> input)) m = noEff m {input} +updateModel :: Action -> Model -> (Effect Action Model, [Eff]) +updateModel NoOp m = (noEff m, []) +updateModel (FormChanged (Just -> input)) m = (noEff m {input}, []) updateModel (FormSubmitted output) m = - m <# do EntityWritten <$> updatePost m.fileName output -updateModel (EntityWritten _) m = noEff m + (m <# do EntityWritten <$> updatePost m.fileName output, []) +updateModel (EntityWritten _) m = (noEff m, []) viewModel :: Model -> View Action viewModel m = do -- cgit v1.2.3