Baguette/dnsmanager-webclient
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix Zone display while resetting the zone.

Browse source
This commit is contained in:
Philippe Pittoli 2025-10-28 22:25:48 +01:00
parent 49adaba0aa
commit 4235d33fe0
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/App/Page/Zone.purs
View file

@ -555,7 +555,9 @@ handleQuery = case _ of
H.modify_ _ { _rr_form { _zonefile = Just response.zonefile } } H.modify_ _ { _rr_form { _zonefile = Just response.zonefile } }
(DNSManager.MkZone response) -> do (DNSManager.MkZone response) -> do
case response.zone.delegation of case response.zone.delegation of
Nothing -> add_entries response.zone.resources Nothing -> do
H.modify_ _ { delegation = Nothing, _resources = [] }
add_entries response.zone.resources
Just _ -> H.modify_ _ { delegation = response.zone.delegation } Just _ -> H.modify_ _ { delegation = response.zone.delegation }
(DNSManager.MkDomainDelegated response) -> do (DNSManager.MkDomainDelegated response) -> do
H.modify_ _ { delegation = Just { nameserver1: response.nameserver1, nameserver2: response.nameserver2} } H.modify_ _ { delegation = Just { nameserver1: response.nameserver1, nameserver2: response.nameserver2} }