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/Update/SignIn.elm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 src/client/Update/SignIn.elm

(limited to 'src/client/Update')

diff --git a/src/client/Update/SignIn.elm b/src/client/Update/SignIn.elm
new file mode 100644
index 0000000..a962f90
--- /dev/null
+++ b/src/client/Update/SignIn.elm
@@ -0,0 +1,15 @@
+module Update.SignIn
+  ( SignInAction(..)
+  , updateSignIn
+  ) where
+
+import Model.View.SignIn exposing (..)
+
+type SignInAction =
+  UpdateLogin String
+
+updateSignIn : SignInAction -> SignIn -> SignIn
+updateSignIn action signIn =
+  case action of
+    UpdateLogin login ->
+      { signIn | login <- login }
-- 
cgit v1.2.3