How to turn a Msg into a Cmd Msg?
type Msg =
LoginSucceeded User
| InfoMessage String
update : Msg -> Model -> (Model, Cmd Msg)
update msg model =
case msg of
LoginSucceeded newUser ->
( { model | currentUser = newUser }
, Cmd.none
)
InfoMessage message ->
( { model | message = Just message }
, Cmd.none
)type Msg =
LoginSucceeded User
| InfoMessage String
update : Msg -> Model -> (Model, Cmd Msg)
update msg model =
case msg of
LoginSucceeded newUser ->
( { model | currentUser = newUser }
, sendMsg <| InfoMessage "Login Successful"
)
InfoMessage message ->
( { model | message = Just message }
, Cmd.none
)
sendMsg : msg -> Cmd msg
sendMsg msg =
Task.succeed msg
|> Task.perform identityQuestion
Answer
Further reading
Last updated