Fix typo, minor bugfix.
parent
e6bb3c53d6
commit
523df99f5c
|
@ -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?"
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue