From 5d6c1b33e6a970c4eef966cff642c26df3fbb4e8 Mon Sep 17 00:00:00 2001 From: Philippe PITTOLI Date: Wed, 10 Apr 2024 11:45:46 +0200 Subject: [PATCH] Allow to revert to Zone pages on reload. --- src/App/Container.purs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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