Send the delegation message to dnsmanagerd.

src/App/Container.purs

@@ -598,6 +598,9 @@ act_on_page_event page_event = case page_event of
     PageZone.AskSaveRR domain rr -> do
       message <- H.liftEffect $ DNSManager.serialize $ DNSManager.MkUpdateRR { domain, rr }
       H.tell _ws_dns unit (WS.ToSend message)
+    PageZone.AskSaveDelegation domain nameserver1 nameserver2 -> do
+      message <- H.liftEffect $ DNSManager.serialize $ DNSManager.MkDelegateDomain { domain, nameserver1, nameserver2 }
+      H.tell _ws_dns unit (WS.ToSend message)
     PageZone.AskAddRR domain rr -> do
       message <- H.liftEffect $ DNSManager.serialize $ DNSManager.MkAddRR { domain, rr }
       H.tell _ws_dns unit (WS.ToSend message)

src/App/Page/Zone.purs

@@ -70,6 +70,7 @@ data Output
   | AskNewToken String Int
   | AskDeleteRR String Int
   | AskSaveRR String ResourceRecord
+  | AskSaveDelegation String String String
   | AskAddRR String ResourceRecord
   | AskGetZone String
 
@@ -441,8 +442,6 @@ handleAction = case _ of
 
   -- | Validate the delegation of the domain.
   ValidateDelegation -> do
-    H.raise $ Log $ SystemLog "Validate the delegation"
-
     state <- H.get
 
     case ValidationDelegation.validation state._delegation_form of
@@ -454,7 +453,15 @@ handleAction = case _ of
 
   -- | Save the delegation of the domain.
   SaveDelegation -> do
-    H.raise $ Log $ SystemLog "Save the delegation"
+    state <- H.get
+    let df = state._delegation_form
+    H.raise $ Log $ SystemLog
+      $ "Asking the domain '" <> state._domain
+        <> "' to be delegated (to '"
+        <> df.nameserver1 <> "' and '" <> df.nameserver2
+        <> "')"
+    H.raise $ AskSaveDelegation state._domain df.nameserver1 df.nameserver2
+    H.modify_ _ { rr_modal = NoModal }
 
   NewToken rr_id -> do
     { _domain } <- H.get