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 }