From 88b12215694880790f38bfc3eff31afbf03435b9 Mon Sep 17 00:00:00 2001
From: Philippe Pittoli <karchnu@karchnu.fr>
Date: Wed, 21 Feb 2024 05:39:04 +0100
Subject: [PATCH] Automatic routing to DomainList page when authentication
 happens on Authentication page.

---
 src/App/Container.purs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/App/Container.purs b/src/App/Container.purs
index 93c36ba..39feba9 100644
--- 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"