Automatic routing to DomainList page when authentication happens on Authentication page.

2024-02-21 05:39:04 +01:00 · 2024-02-21 05:39:04 +01:00 · 88b1221569
commit 88b1221569
parent 523df99f5c
1 changed files with 4 additions and 0 deletions
--- a/src/App/Container.purs
+++ b/src/App/Container.purs
@ -622,6 +622,10 @@ handleAction = case _ of
      Home, m@(DNSManager.MkLogged _) -> do
        update_domain_list state m
        revert_old_page
+      Authentication, m@(DNSManager.MkLogged _) -> do
+        update_domain_list state m
+        -- handleAction $ Log $ SystemLog "go to domain list!"
+        handleAction $ Routing DomainList
      -- Logged = page just reloaded, but page already changed, no need to do that again.
      _, m@(DNSManager.MkLogged _) -> do
        -- handleAction $ Log $ SystemLog "logged to dnsmanagerd, do not change page"