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

Domain list: do not see disconnected user domain list.

display
Philippe Pittoli 2024-03-31 12:06:25 +02:00
parent 7d94cf587d
commit 4d93cbc79f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/App/Container.purs
View File

@ -632,6 +632,8 @@ handleAction = case _ of
H.modify_ _ { notif = NoNotification } H.modify_ _ { notif = NoNotification }
Disconnection -> do Disconnection -> do
handleAction $ Routing Home
H.put $ initialState unit H.put $ initialState unit
handleAction $ ToggleAuthenticated Nothing handleAction $ ToggleAuthenticated Nothing
@ -640,8 +642,6 @@ handleAction = case _ of
sessionstorage <- H.liftEffect $ Window.sessionStorage =<< HTML.window sessionstorage <- H.liftEffect $ Window.sessionStorage =<< HTML.window
H.liftEffect $ Storage.clear sessionstorage H.liftEffect $ Storage.clear sessionstorage
handleAction $ Routing Home
-- | `dnsmanagerd websocket component` wants to do something. -- | `dnsmanagerd websocket component` wants to do something.
DNSManagerDaemonEvent ev -> case ev of DNSManagerDaemonEvent ev -> case ev of
WS.MessageReceived (Tuple _ message) -> do WS.MessageReceived (Tuple _ message) -> do