Fix typo, minor bugfix.

src/App/ZoneInterface.purs

@@ -542,7 +542,7 @@ handleAction = case _ of
   -- | Initialize the ZoneInterface component: ask for the domain zone to `dnsmanagerd`.
   Initialize -> do
     { _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 }
     H.raise $ MessageToSend message
 
@@ -709,7 +709,7 @@ render_resources records
       else Bulma.p "no basic records"
 
   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]
       else Bulma.p "no read only records?"