add new collection page

1 files changed, 10 insertions, 0 deletions

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