Change messages.

This commit is contained in:
Philippe Pittoli 2023-06-09 02:54:57 +02:00
parent 46de4c6026
commit fc24bdac68

View File

@ -317,16 +317,16 @@ handleAction = case _ of
unableToSend "Not connected to server."
Just _, "", _, _, _ ->
unableToSend "Write your secret key!"
unableToSend "Write the secret key with authd!"
Just _, _, "", _, _ ->
unableToSend "Write your login!"
unableToSend "Write the user's login!"
Just _, _, _, "", _ ->
unableToSend "Write your email!"
unableToSend "Write the user's email!"
Just _, _, _, _, "" ->
unableToSend "Write your password!"
unableToSend "Write the user's password!"
Just webSocket, _, _, _, _ -> do
H.liftEffect (WS.readyState webSocket) >>= case _ of
@ -412,8 +412,8 @@ handleAction = case _ of
, "]"
]
sendArrayBuffer :: WS.WebSocket -> ArrayBuffer -> Effect Unit
sendArrayBuffer = WS.sendArrayBuffer
sendArrayBuffer :: WS.WebSocket -> ArrayBuffer -> Effect Unit
sendArrayBuffer = WS.sendArrayBuffer
--------------------------------------------------------------------------------
-- Helpers for updating the array of messages sent/received