From 0d589e12a0c32936303de46b1e462dd19648170d Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sun, 19 Jul 2015 16:07:15 +0200
Subject: Login with a token validation

---
 src/client/Model/View.elm        |  3 ++-
 src/client/Model/View/SignIn.elm | 15 +++++++++++++++
 2 files changed, 17 insertions(+), 1 deletion(-)
 create mode 100644 src/client/Model/View/SignIn.elm

(limited to 'src/client/Model')

diff --git a/src/client/Model/View.elm b/src/client/Model/View.elm
index ca819e3..3e3cbca 100644
--- a/src/client/Model/View.elm
+++ b/src/client/Model/View.elm
@@ -3,8 +3,9 @@ module Model.View
   ) where
 
 import Model.Payment exposing (Payments)
+import Model.View.SignIn exposing (..)
 
 type View =
   LoadingView
   | PaymentView Payments
-  | SignInView String
+  | SignInView SignIn
diff --git a/src/client/Model/View/SignIn.elm b/src/client/Model/View/SignIn.elm
new file mode 100644
index 0000000..1c8eae7
--- /dev/null
+++ b/src/client/Model/View/SignIn.elm
@@ -0,0 +1,15 @@
+module Model.View.SignIn
+  ( SignIn
+  , initSignIn
+  ) where
+
+type alias SignIn =
+  { login : String
+  , authentication : Maybe (Result String String)
+  }
+
+initSignIn : SignIn
+initSignIn =
+  { login = ""
+  , authentication = Nothing
+  }
-- 
cgit v1.2.3