Tell the navbar when a disconnection happens.

beta
Philippe Pittoli 2024-03-23 17:09:22 +01:00
parent 177e3f307f
commit a61e723811
1 changed files with 2 additions and 0 deletions

View File

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