karchnu
/
halogen-websocket-ipc-playzone
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Compiles again.

master
Philippe Pittoli 2023-05-21 22:10:20 +02:00
parent 089ba00c58
commit df11d8e7aa
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/App/Messages/AuthenticationDaemon.purs
View File

@ -10,7 +10,7 @@ import Data.Codec.Argonaut as CA
import Data.Maybe import Data.Maybe
import Data.Either import Data.Either
import Data.Codec.Argonaut.Record as CAR import Data.Codec.Argonaut.Record as CAR
import Data.UInt (fromInt, UInt) import Data.UInt (fromInt, toInt, UInt)
import Data.Tuple (Tuple(..)) import Data.Tuple (Tuple(..))
import Data.ArrayBuffer.ArrayBuffer as ArrayBuffer import Data.ArrayBuffer.ArrayBuffer as ArrayBuffer
@ -180,9 +180,10 @@ serialize request
deserialize :: ArrayBuffer -> Effect (Either DecodeError AnswerMessage) deserialize :: ArrayBuffer -> Effect (Either DecodeError AnswerMessage)
deserialize arraybuffer deserialize arraybuffer
= do = do
case (IPC.fromTypedIPC arraybuffer) of value <- liftEffect $ IPC.fromTypedIPC arraybuffer
pure $ case (value) of
Left err -> Left (UnknownError $ show err) Left err -> Left (UnknownError $ show err)
Right (Tuple messageTypeNumber string) -> case (decode messageTypeNumber $ J.fromString string) of Right (Tuple messageTypeNumber string) -> case (decode (toInt messageTypeNumber) $ J.fromString string) of
Left parsingError -> Left parsingError Left parsingError -> Left parsingError
Right answerMessage -> Right answerMessage Right answerMessage -> Right answerMessage