From bb316286b0859b5648c61f44c88399f4c1aad9cd Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 2 Jan 2016 19:07:19 +0100
Subject: Use start-app for elm

---
 src/client/elm/Sign.elm | 43 -------------------------------------------
 1 file changed, 43 deletions(-)
 delete mode 100644 src/client/elm/Sign.elm

(limited to 'src/client/elm/Sign.elm')

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
-- 
cgit v1.2.3