module Update.SignIn
  ( SignInAction(..)
  , updateSignIn
  ) where

import Model.View.SignInView exposing (..)

type SignInAction =
  UpdateLogin String
  | ValidLogin String
  | ErrorLogin String

updateSignIn : SignInAction -> SignInView -> SignInView
updateSignIn action signInView =
  case action of
    UpdateLogin login ->
      { signInView | login <- login }
    ValidLogin message ->
      { signInView
      | login <- ""
      , result <- Just (Ok message)
      }
    ErrorLogin message ->
      { signInView | result <- Just (Err message) }