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

23
frontend/app/Page/NewCollection.hs
View File

@@ -10,6 +10,8 @@ where
import Api
import Data.Aeson qualified as A
import Data.Text qualified as T
import Effect (Eff)
import Effect qualified as E
import Form qualified as F
import Miso
import Miso.String (toMisoString)
@@ -30,17 +32,20 @@ data Action
| CollectionCreated (Either String ())
deriving (Eq, Show)
updateModel :: Action -> Model -> Effect Action Model
updateModel NoOp m = noEff m
updateModel (FormChanged input) m = noEff m {input}
updateModel :: Action -> Model -> (Effect Action Model, [Eff])
updateModel NoOp m = (noEff m, [])
updateModel (FormChanged input) m = (noEff m {input}, [])
updateModel (FormSubmitted collection) m =
m <# do
CollectionCreated <$> createCollection (T.unpack collection)
( m <# do
CollectionCreated <$> createCollection (T.unpack collection),
[]
)
updateModel (CollectionCreated (Left err)) m =
m <# do
pure NoOp <* consoleLog (toMisoString err)
-- TODO reload collections in main app
updateModel (CollectionCreated (Right _)) m = noEff m
( m <# do
pure NoOp <* consoleLog (toMisoString err),
[]
)
updateModel (CollectionCreated (Right _)) m = (noEff m, [E.ReloadCollections])
viewModel :: Model -> View Action
viewModel m = do