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