Allow to revert to Zone pages on reload.

2024-04-10 11:45:46 +02:00 · 2024-04-10 11:45:46 +02:00 · 5d6c1b33e6
commit 5d6c1b33e6
parent f71bae55a0
1 changed files with 3 additions and 1 deletions
--- 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