update : Msg -> Model -> (Model, Cmd Msg)
LoginSucceeded newUser ->
|> updateMessage "Login Successful"
( model |> updateMessage message
updateUser : User -> Model -> Model
{ model | currentUser = user }
updateMessage : String -> Model -> Model
updateMessage message model =
{ model | message = Just message }