diff --git a/src/App/Container.purs b/src/App/Container.purs index 5ba32ec..1790ea5 100644 --- a/src/App/Container.purs +++ b/src/App/Container.purs @@ -66,6 +66,8 @@ import App.Message.AuthenticationDaemon as AuthD import App.Log as AppLog import App.WS as WS +import Scroll (scrollToTop) + import App.Page.Authentication as AI import App.Page.Registration as RI import App.Page.MailValidation as MVI @@ -524,6 +526,7 @@ handleAction = case _ of WS.WSJustClosed -> do H.modify_ _ { are_we_connected_to_dnsmanagerd = false } + H.liftEffect scrollToTop handleAction $ Log $ ErrorLog "You just got disconnected from authd." WS.Log message -> handleAction $ Log message WS.KeepAlive -> handleAction $ KeepAlive $ Left unit @@ -708,6 +711,7 @@ handleAction = case _ of handleAction AuthenticateToDNSManager WS.WSJustClosed -> do H.modify_ _ { are_we_connected_to_dnsmanagerd = false } + H.liftEffect scrollToTop handleAction $ Log $ ErrorLog "You just got disconnected from dnsmanagerd." WS.Log message -> handleAction $ Log message WS.KeepAlive -> handleAction $ KeepAlive $ Right unit