From 2e67bf911533a66b5a5b7b50481b426adff8c7db Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Fri, 7 Jun 2024 17:08:01 +0200
Subject: reload collections when creating

---
 frontend/app/Page/ListCollection.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'frontend/app/Page/ListCollection.hs')

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 =
-- 
cgit v1.2.3