src/client/Model/View/SignIn.elm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

module Model.View.SignIn
  ( SignIn
  , initSignIn
  ) where

type alias SignIn =
  { login : String
  , authentication : Maybe (Result String String)
  }

initSignIn : SignIn
initSignIn =
  { login = ""
  , authentication = Nothing
  }