From 378e007141c699945080bbf944aeef4abf67d75c Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Thu, 6 Jun 2024 23:05:41 +0200 Subject: add new collection page --- frontend/app/Page.hs | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'frontend/app/Page.hs') diff --git a/frontend/app/Page.hs b/frontend/app/Page.hs index 762ae90..16191dd 100644 --- a/frontend/app/Page.hs +++ b/frontend/app/Page.hs @@ -13,6 +13,7 @@ import Data.Function import Miso import Page.EditValue qualified as EditValue import Page.ListCollection qualified as ListCollection +import Page.NewCollection qualified as NewCollection import Route (Route) import Route qualified as Route @@ -20,11 +21,13 @@ data Page = Home | ListCollection ListCollection.Model | EditValue EditValue.Model + | NewCollection NewCollection.Model deriving (Show, Eq) data Action = HandleListCollection ListCollection.Action | HandleEditValue EditValue.Action + | HandleNewCollection NewCollection.Action deriving (Show, Eq) instance Default Page where @@ -36,6 +39,8 @@ initialPage (Route.ListCollection c) = fmap ListCollection <$> ListCollection.initialModel c initialPage (Route.EditValue c f) = fmap EditValue <$> EditValue.initialModel c f +initialPage Route.NewCollection = + fmap NewCollection <$> NewCollection.initialModel updatePage :: Action -> Page -> Effect Action Page updatePage (HandleListCollection action) (ListCollection m) = @@ -46,8 +51,13 @@ updatePage (HandleEditValue action) (EditValue m) = EditValue.updateModel action m & 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 viewPage :: Page -> View Action viewPage Home = text "home" viewPage (ListCollection m) = HandleListCollection <$> ListCollection.viewModel m viewPage (EditValue m) = HandleEditValue <$> EditValue.viewModel m +viewPage (NewCollection m) = HandleNewCollection <$> NewCollection.viewModel m -- cgit v1.2.3