Tell the navbar when a disconnection happens.
This commit is contained in:
parent
177e3f307f
commit
a61e723811
1 changed files with 2 additions and 0 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue