Reset subdomain input when sending a NewDomain message.

2023-07-03 13:46:34 +02:00 · 2023-07-03 13:46:34 +02:00 · 4522c22c42
parent cbaeaf8ee2
commit 4522c22c42
1 changed files with 1 additions and 0 deletions
--- 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