From 4235d33fe02712fd558a0feea987685c94f16cf0 Mon Sep 17 00:00:00 2001 From: Philippe Pittoli Date: Tue, 28 Oct 2025 22:25:48 +0100 Subject: [PATCH] Fix Zone display while resetting the zone. --- src/App/Page/Zone.purs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/App/Page/Zone.purs b/src/App/Page/Zone.purs index 563c3e5..74c4437 100644 --- a/src/App/Page/Zone.purs +++ b/src/App/Page/Zone.purs @@ -555,7 +555,9 @@ handleQuery = case _ of H.modify_ _ { _rr_form { _zonefile = Just response.zonefile } } (DNSManager.MkZone response) -> do 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 } (DNSManager.MkDomainDelegated response) -> do H.modify_ _ { delegation = Just { nameserver1: response.nameserver1, nameserver2: response.nameserver2} }