Reset subdomain input when sending a NewDomain message.
parent
cbaeaf8ee2
commit
4522c22c42
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue