Login with a token validation

1 files changed, 15 insertions, 0 deletions

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 }