Login with a token validation

1 files changed, 15 insertions, 0 deletions

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
+  }