diff options
Diffstat (limited to 'src/client/elm/Sign.elm')
| -rw-r--r-- | src/client/elm/Sign.elm | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/src/client/elm/Sign.elm b/src/client/elm/Sign.elm deleted file mode 100644 index 44f23b8..0000000 --- a/src/client/elm/Sign.elm +++ /dev/null @@ -1,43 +0,0 @@ -module Sign - ( Operation(..) - , decodeOperation - , toServerCommunication - ) where - -import Json.Decode as Json -import Json.Decode exposing (Value, Decoder, (:=)) -import Maybe - -import ServerCommunication as SC - -type Operation = - NoOp - | SignIn String - | SignOut - -decodeOperation : Value -> Operation -decodeOperation value = - Json.decodeValue operationDecoder value - |> Result.toMaybe - |> Maybe.withDefault NoOp - -toServerCommunication : Operation -> SC.Communication -toServerCommunication operation = - case operation of - NoOp -> SC.NoCommunication - SignIn assertion -> SC.SignIn assertion - SignOut -> SC.SignOut - -operationDecoder : Decoder Operation -operationDecoder = - ("operation" := Json.string) `Json.andThen` operationDecoderWithTag - -operationDecoderWithTag : String -> Decoder Operation -operationDecoderWithTag operation = - case operation of - "SignIn" -> - Json.map SignIn ("assertion" := Json.string) - "SignOut" -> - Json.succeed SignOut - _ -> - Json.succeed NoOp |