Fix typo, minor bugfix.

beta
Philippe Pittoli 2024-02-21 05:33:55 +01:00
parent e6bb3c53d6
commit 523df99f5c
1 changed files with 2 additions and 2 deletions

View File

@ -542,7 +542,7 @@ handleAction = case _ of
-- | Initialize the ZoneInterface component: ask for the domain zone to `dnsmanagerd`. -- | Initialize the ZoneInterface component: ask for the domain zone to `dnsmanagerd`.
Initialize -> do Initialize -> do
{ _domain } <- H.get { _domain } <- H.get
H.raise $ Log $ SystemLog $ "Asking the server for the zone" <> _domain H.raise $ Log $ SystemLog $ "Asking the domain " <> _domain
message <- H.liftEffect $ DNSManager.serialize $ DNSManager.MkGetZone { domain: _domain } message <- H.liftEffect $ DNSManager.serialize $ DNSManager.MkGetZone { domain: _domain }
H.raise $ MessageToSend message H.raise $ MessageToSend message
@ -709,7 +709,7 @@ render_resources records
else Bulma.p "no basic records" else Bulma.p "no basic records"
basic_readonly_records_section basic_readonly_records_section
= if A.length all_basic_rr > 0 = if A.length all_basic_ro_rr > 0
then Bulma.table [] [ Bulma.simple_table_header_ro, render_basic_records all_basic_ro_rr] then Bulma.table [] [ Bulma.simple_table_header_ro, render_basic_records all_basic_ro_rr]
else Bulma.p "no read only records?" else Bulma.p "no read only records?"