diff options
Diffstat (limited to 'frontend/app/Page.hs')
| -rw-r--r-- | frontend/app/Page.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/frontend/app/Page.hs b/frontend/app/Page.hs index 3218ae6..c7b393f 100644 --- a/frontend/app/Page.hs +++ b/frontend/app/Page.hs @@ -7,6 +7,7 @@ module Page ) where +import Control.Monad.Catch (SomeException) import Data.Bifunctor import Data.Default import Data.Function @@ -30,7 +31,7 @@ newtype Action = Action (Page -> (Effect Action Page, [Eff])) instance Default Page where def = Home -initialPage :: Route -> JSM (Either String Page) +initialPage :: Route -> JSM (Either SomeException Page) initialPage Route.Home = pure (Right Home) initialPage (Route.ListCollection c) = fmap ListCollection <$> ListCollection.initialModel c |