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} }