diff --git a/src/App/Container.purs b/src/App/Container.purs index 964a212..d2660d9 100644 --- a/src/App/Container.purs +++ b/src/App/Container.purs @@ -354,6 +354,9 @@ handleAction = case _ of H.tell _nav unit $ NavigationInterface.TellLogin (Just name) Routing page -> do + -- Each time the user change load a new page, the counter gets reset + -- since it proves they are still active. + H.modify_ _ { keepalive_counter = 0 } -- Store the current page we are on and restore it when we reload. sessionstorage <- H.liftEffect $ Window.sessionStorage =<< HTML.window H.liftEffect $ Storage.setItem "current-page" (case page of