Baguette/dnsmanager-webclient
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Tell the navbar when a disconnection happens.

Browse source
This commit is contained in:
Philippe Pittoli 2024-03-23 17:09:22 +01:00
parent 177e3f307f
commit a61e723811
1 changed files with 2 additions and 0 deletions

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