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.hs | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) (limited to 'frontend/app/Page.hs') diff --git a/frontend/app/Page.hs b/frontend/app/Page.hs index 16191dd..7c200c8 100644 --- a/frontend/app/Page.hs +++ b/frontend/app/Page.hs @@ -16,6 +16,7 @@ import Page.ListCollection qualified as ListCollection import Page.NewCollection qualified as NewCollection import Route (Route) import Route qualified as Route +import Effect (Eff) data Page = Home @@ -42,19 +43,19 @@ initialPage (Route.EditValue c f) = initialPage Route.NewCollection = fmap NewCollection <$> NewCollection.initialModel -updatePage :: Action -> Page -> Effect Action Page +updatePage :: Action -> Page -> (Effect Action Page, [Eff]) updatePage (HandleListCollection action) (ListCollection m) = ListCollection.updateModel action m - & bimap HandleListCollection ListCollection -updatePage (HandleListCollection _) p = noEff p + & first (bimap HandleListCollection ListCollection) +updatePage (HandleListCollection _) p = (noEff p, []) updatePage (HandleEditValue action) (EditValue m) = EditValue.updateModel action m - & bimap HandleEditValue EditValue -updatePage (HandleEditValue _) p = noEff p + & first (bimap HandleEditValue EditValue) +updatePage (HandleEditValue _) p = (noEff p, []) updatePage (HandleNewCollection action) (NewCollection m) = NewCollection.updateModel action m - & bimap HandleNewCollection NewCollection -updatePage (HandleNewCollection _) p = noEff p + & first (bimap HandleNewCollection NewCollection) +updatePage (HandleNewCollection _) p = (noEff p, []) viewPage :: Page -> View Action viewPage Home = text "home" -- cgit v1.2.3