From 4522c22c42fab9bd2a0d2de82f586026d1c6f688 Mon Sep 17 00:00:00 2001
From: Philippe Pittoli <karchnu@karchnu.fr>
Date: Mon, 3 Jul 2023 13:46:34 +0200
Subject: [PATCH] Reset subdomain input when sending a NewDomain message.

---
 src/App/DNSManagerDomainsInterface.purs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/App/DNSManagerDomainsInterface.purs b/src/App/DNSManagerDomainsInterface.purs
index c102651..08d65a2 100644
--- a/src/App/DNSManagerDomainsInterface.purs
+++ b/src/App/DNSManagerDomainsInterface.purs
@@ -330,6 +330,7 @@ handleAction = case _ of
               ab <- DNSManager.serialize $ DNSManager.MkNewDomain { domain: new_domain }
               sendArrayBuffer webSocket ab
             appendMessage "[😇] Trying to add a new domain"
+            handleAction $ HandleNewDomainInput $ INP_newdomain ""
 
   HandleWebSocket wsEvent ->
     case wsEvent of