Removing warnings.

master
Philippe Pittoli 10 months ago
parent df11d8e7aa
commit c94456e8f4

@ -1,23 +1,21 @@
module App.Messages.AuthenticationDaemon where
import Prelude
import Prelude (bind, pure, show, ($))
import Effect (Effect)
import Effect.Console (log)
import Data.Argonaut.Core as J
import Data.Codec.Argonaut as CA
import Data.Maybe
import Data.Either
import Data.Maybe (Maybe)
import Data.Either (Either(..))
import Data.Codec.Argonaut.Record as CAR
import Data.UInt (fromInt, toInt, UInt)
import Data.Tuple (Tuple(..))
import Data.ArrayBuffer.ArrayBuffer as ArrayBuffer
import Data.ArrayBuffer.Types (ArrayBuffer, DataView)
import Data.ArrayBuffer.Types (ArrayBuffer)
import Effect.Class (liftEffect)
import Control.Monad.Trans.Class (lift)
import App.IPC as IPC
@ -142,7 +140,7 @@ decode number json
= case number of
0 -> error_management codecGotError GotError
1 -> error_management codecGotToken GotToken
12 -> error_management codec_contacts GotContacts
12 -> error_management codecGotContacts GotContacts
_ -> Left UnknownNumber
-- 1 type Token = { uid :: Int32, token :: String }
-- 2 type User = { user :: ::AuthD::User::Public }
@ -168,8 +166,8 @@ decode number json
codecGotError = CA.object "Error" (CAR.record { reason: CAR.optional CA.string })
codecGotToken ∷ CA.JsonCodec Token
codecGotToken = CA.object "Token" (CAR.record { uid: CA.int, token: CA.string })
codec_contacts ∷ CA.JsonCodec Contacts
codec_contacts = CA.object "Contacts" (CAR.record { user: CA.int, email: CAR.optional CA.string, phone: CAR.optional CA.string })
codecGotContacts ∷ CA.JsonCodec Contacts
codecGotContacts = CA.object "Contacts" (CAR.record { user: CA.int, email: CAR.optional CA.string, phone: CAR.optional CA.string })
serialize :: RequestMessage -> Effect ArrayBuffer
@ -186,12 +184,3 @@ deserialize arraybuffer
Right (Tuple messageTypeNumber string) -> case (decode (toInt messageTypeNumber) $ J.fromString string) of
Left parsingError -> Left parsingError
Right answerMessage -> Right answerMessage
-- login_decode ∷ J.Json → Either CA.JsonDecodeError GetToken
-- login_decode = CA.decode codec_login
--
-- example_login_deserialize :: J.Json -> Effect Unit
-- example_login_deserialize serialized_login
-- = case (login_decode serialized_login) of
-- Left err -> log $ show err
-- Right l -> log $ show l

Loading…
Cancel
Save