From e9808e70f135cf83b929fb496cea3c607fda03c9 Mon Sep 17 00:00:00 2001
From: Philippe Pittoli <karchnu@karchnu.fr>
Date: Sun, 2 Jul 2023 00:10:14 +0200
Subject: [PATCH] Create a subdomain based on the selected domain.

---
 src/App/DNSManagerDomainsInterface.purs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/App/DNSManagerDomainsInterface.purs b/src/App/DNSManagerDomainsInterface.purs
index ff10e15..e7bd7f0 100644
--- a/src/App/DNSManagerDomainsInterface.purs
+++ b/src/App/DNSManagerDomainsInterface.purs
@@ -336,7 +336,7 @@ handleAction = case _ of
   NewDomainAttempt ev -> do
     H.liftEffect $ Event.preventDefault ev
 
-    { wsConnection, newDomainForm } <- H.get
+    { wsConnection, newDomainForm, selected_domain } <- H.get
     let new_domain = newDomainForm.new_domain
 
     case wsConnection, new_domain of
@@ -362,8 +362,7 @@ handleAction = case _ of
 
           Open -> do
             H.liftEffect $ do
-              -- TODO: put chosen TLD
-              ab <- DNSManager.serialize $ DNSManager.MkNewDomain { domain: new_domain }
+              ab <- DNSManager.serialize $ DNSManager.MkNewDomain { domain: (new_domain <> "." <> selected_domain) }
               sendArrayBuffer webSocket ab
             appendMessageReset "[😇] Trying to add a new domain"