src/client/Update/SignIn.elm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
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 }