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

Tell the navbar when a disconnection happens.

display
Philippe Pittoli 2024-03-23 17:09:22 +01:00
parent 177e3f307f
commit a61e723811
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/App/Container.purs
View File

@ -588,6 +588,8 @@ handleAction = case _ of
Disconnection -> do Disconnection -> do
H.put $ initialState unit H.put $ initialState unit
handleAction $ ToggleAuthenticated Nothing
-- Remove all stored session data. -- Remove all stored session data.
sessionstorage <- H.liftEffect $ Window.sessionStorage =<< HTML.window sessionstorage <- H.liftEffect $ Window.sessionStorage =<< HTML.window
H.liftEffect $ Storage.clear sessionstorage H.liftEffect $ Storage.clear sessionstorage