Automatic routing to DomainList page when authentication happens on Authentication page.
parent
523df99f5c
commit
88b1221569
|
@ -622,6 +622,10 @@ handleAction = case _ of
|
||||||
Home, m@(DNSManager.MkLogged _) -> do
|
Home, m@(DNSManager.MkLogged _) -> do
|
||||||
update_domain_list state m
|
update_domain_list state m
|
||||||
revert_old_page
|
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.
|
-- Logged = page just reloaded, but page already changed, no need to do that again.
|
||||||
_, m@(DNSManager.MkLogged _) -> do
|
_, m@(DNSManager.MkLogged _) -> do
|
||||||
-- handleAction $ Log $ SystemLog "logged to dnsmanagerd, do not change page"
|
-- handleAction $ Log $ SystemLog "logged to dnsmanagerd, do not change page"
|
||||||
|
|
Loading…
Reference in New Issue