From 331d506281760ac62e8f1715ef729e1b2a91e280 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sun, 19 Jul 2015 17:28:19 +0200
Subject: Showing either error or success message at sign in page

---
 src/client/Update/SignIn.elm | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'src/client/Update/SignIn.elm')

diff --git a/src/client/Update/SignIn.elm b/src/client/Update/SignIn.elm
index a962f90..0e118dc 100644
--- a/src/client/Update/SignIn.elm
+++ b/src/client/Update/SignIn.elm
@@ -7,9 +7,18 @@ import Model.View.SignIn exposing (..)
 
 type SignInAction =
   UpdateLogin String
+  | ValidLogin String
+  | ErrorLogin String
 
 updateSignIn : SignInAction -> SignIn -> SignIn
 updateSignIn action signIn =
   case action of
     UpdateLogin login ->
       { signIn | login <- login }
+    ValidLogin message ->
+      { signIn
+      | login <- ""
+      , result <- Just (Ok message)
+      }
+    ErrorLogin message ->
+      { signIn | result <- Just (Err message) }
-- 
cgit v1.2.3