diff options
author | Joris | 2016-01-02 19:07:19 +0100 |
---|---|---|
committer | Joris | 2016-01-02 19:07:19 +0100 |
commit | bb316286b0859b5648c61f44c88399f4c1aad9cd (patch) | |
tree | ecbe401c1ff657987b6609997a69775969a317f7 /src/client/elm/Sign.elm | |
parent | 0d0c99fd28b782c7daf02fb5cc48d3eb252e705d (diff) | |
download | budget-bb316286b0859b5648c61f44c88399f4c1aad9cd.tar.gz budget-bb316286b0859b5648c61f44c88399f4c1aad9cd.tar.bz2 budget-bb316286b0859b5648c61f44c88399f4c1aad9cd.zip |
Use start-app for elm
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 |