Baguette
/
dnsmanager-webclient
3
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Allow to revert to Zone pages on reload.

display
Philippe PITTOLI 2024-04-10 11:45:46 +02:00
parent f71bae55a0
commit 5d6c1b33e6
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/App/Container.purs
View File

@ -326,7 +326,9 @@ handleAction = case _ of
Routing page -> do Routing page -> do
-- Store the current page we are on and restore it when we reload. -- Store the current page we are on and restore it when we reload.
sessionstorage <- H.liftEffect $ Window.sessionStorage =<< HTML.window 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 _ <- case page of
Zone zone -> H.liftEffect $ Storage.setItem "current-zone" zone sessionstorage Zone zone -> H.liftEffect $ Storage.setItem "current-zone" zone sessionstorage