"Still connecting" message has been nuked.
This commit is contained in:
parent
83393df37e
commit
7f83836163
@ -743,12 +743,12 @@ handleAction = case _ of
|
|||||||
handleAction $ Log $ ErrorLog $ "The domain is not valid!"
|
handleAction $ Log $ ErrorLog $ "The domain is not valid!"
|
||||||
handleAction $ AddNotif $ BadNotification $ "Invalid domain name."
|
handleAction $ AddNotif $ BadNotification $ "Invalid domain name."
|
||||||
m@(DNSManager.MkDomainDeleted response) -> do
|
m@(DNSManager.MkDomainDeleted response) -> do
|
||||||
let successlog = "The domain '" <> response.domain <> "' has been deleted!"
|
let successlog = "The domain \"" <> response.domain <> "\" has been deleted!"
|
||||||
handleAction $ Log $ SuccessLog successlog
|
handleAction $ Log $ SuccessLog successlog
|
||||||
handleAction $ AddNotif $ GoodNotification successlog
|
handleAction $ AddNotif $ GoodNotification successlog
|
||||||
handleAction $ DispatchDNSMessage m
|
handleAction $ DispatchDNSMessage m
|
||||||
m@(DNSManager.MkRRDeleted response) -> do
|
m@(DNSManager.MkRRDeleted response) -> do
|
||||||
handleAction $ Log $ SuccessLog $ "RR (rrid: '" <> show response.rrid <> "') has been deleted!"
|
handleAction $ Log $ SuccessLog $ "RR (rrid: \"" <> show response.rrid <> "\") has been deleted!"
|
||||||
handleAction $ DispatchDNSMessage m
|
handleAction $ DispatchDNSMessage m
|
||||||
m@(DNSManager.MkZone _) -> do
|
m@(DNSManager.MkZone _) -> do
|
||||||
handleAction $ Log $ SuccessLog $ "Zone received!"
|
handleAction $ Log $ SuccessLog $ "Zone received!"
|
||||||
|
@ -3,7 +3,7 @@
|
|||||||
module App.WS where
|
module App.WS where
|
||||||
|
|
||||||
import Prelude (Unit, bind, discard, pure, show, void, when
|
import Prelude (Unit, bind, discard, pure, show, void, when
|
||||||
, ($), (&&), (<$>), (<>), (>>=), (>=>), (<<<), map, (=<<))
|
, ($), (&&), (<$>), (<>), (>>=), (>=>), (<<<), map, (=<<), unit)
|
||||||
|
|
||||||
import Control.Monad.Rec.Class (forever)
|
import Control.Monad.Rec.Class (forever)
|
||||||
import Control.Monad.Except (runExcept)
|
import Control.Monad.Except (runExcept)
|
||||||
@ -230,7 +230,7 @@ send_message message = do
|
|||||||
Nothing -> H.raise $ Log $ UnableToSend "Not connected to server."
|
Nothing -> H.raise $ Log $ UnableToSend "Not connected to server."
|
||||||
Just webSocket -> do
|
Just webSocket -> do
|
||||||
H.liftEffect (WS.readyState webSocket) >>= case _ of
|
H.liftEffect (WS.readyState webSocket) >>= case _ of
|
||||||
Connecting -> H.raise $ Log $ UnableToSend "Still connecting to server."
|
Connecting -> pure unit -- H.raise $ Log $ UnableToSend "Still connecting to server."
|
||||||
Closing -> H.raise $ Log $ UnableToSend "Connection to server is closing."
|
Closing -> H.raise $ Log $ UnableToSend "Connection to server is closing."
|
||||||
Closed -> do
|
Closed -> do
|
||||||
H.raise $ Log $ UnableToSend "Connection to server has been closed."
|
H.raise $ Log $ UnableToSend "Connection to server has been closed."
|
||||||
|
Loading…
Reference in New Issue
Block a user