diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2024-06-07 17:08:01 +0200 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2024-06-08 09:56:20 +0200 |
| commit | 2e67bf911533a66b5a5b7b50481b426adff8c7db (patch) | |
| tree | 71481ebe7602ea3d5c84438d0ca829e26ca75a2a /frontend/app/Page/ListCollection.hs | |
| parent | 8a34cc822c2c508472fe29ab2be1b74ba06e59e6 (diff) | |
reload collections when creating
Diffstat (limited to 'frontend/app/Page/ListCollection.hs')
| -rw-r--r-- | frontend/app/Page/ListCollection.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/frontend/app/Page/ListCollection.hs b/frontend/app/Page/ListCollection.hs index d08e414..93ea389 100644 --- a/frontend/app/Page/ListCollection.hs +++ b/frontend/app/Page/ListCollection.hs @@ -12,6 +12,7 @@ import Data.Aeson qualified as A import Data.Aeson.KeyMap qualified as AM import Miso import Schema +import Effect (Eff) data Model = Model { collection :: String, @@ -34,8 +35,8 @@ data Action = NoOp deriving (Eq, Show) -updateModel :: Action -> Model -> Effect Action Model -updateModel NoOp m = noEff m +updateModel :: Action -> Model -> (Effect Action Model, [Eff]) +updateModel NoOp m = (noEff m, []) viewModel :: Model -> View Action viewModel m = |