diff --git a/src/App/Container.purs b/src/App/Container.purs index a16ce24..656e161 100644 --- a/src/App/Container.purs +++ b/src/App/Container.purs @@ -326,7 +326,9 @@ handleAction = case _ of Routing page -> do -- Store the current page we are on and restore it when we reload. sessionstorage <- H.liftEffect $ Window.sessionStorage =<< HTML.window - H.liftEffect $ Storage.setItem "current-page" (show page) sessionstorage + H.liftEffect $ Storage.setItem "current-page" (case page of + Zone _ -> "Zone" + _ -> show page) sessionstorage _ <- case page of Zone zone -> H.liftEffect $ Storage.setItem "current-zone" zone sessionstorage