Reset subdomain input when sending a NewDomain message.

beta
Philippe Pittoli 2023-07-03 13:46:34 +02:00
parent cbaeaf8ee2
commit 4522c22c42
1 changed files with 1 additions and 0 deletions

View File

@ -330,6 +330,7 @@ handleAction = case _ of
ab <- DNSManager.serialize $ DNSManager.MkNewDomain { domain: new_domain } ab <- DNSManager.serialize $ DNSManager.MkNewDomain { domain: new_domain }
sendArrayBuffer webSocket ab sendArrayBuffer webSocket ab
appendMessage "[😇] Trying to add a new domain" appendMessage "[😇] Trying to add a new domain"
handleAction $ HandleNewDomainInput $ INP_newdomain ""
HandleWebSocket wsEvent -> HandleWebSocket wsEvent ->
case wsEvent of case wsEvent of