kfm/acms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

reload collections when creating

Browse Source
This commit is contained in:
Alexander Foremny
2024-06-07 17:08:01 +02:00
parent 8a34cc822c
commit 2e67bf9115
8 changed files with 60 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
frontend/app/Page/ListCollection.hs
View File

@@ -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 =