Cmd.batch Example

Main.elm

type Msg
    = UrlRequested Browser.UrlRequest
    | UrlChanged Url.Url
    | NameEntered String
    | NameSubmitted
    | MessageEntered String
    | MessageSubmitted
    | GenerateRandomId String

generateRandomChatId : Cmd Msg
generateRandomChatId =
    Random.generate GenerateRandomId <| RandomString.string 10 RandomChar.latin

NameSubmitted ->
            ( { model
                | route = authRoute (canEnterChat model) Chat
                , chatName =
                    clearChatName
                        (authRoute (canEnterChat model) Chat)
                        (String.trim model.chatName)
                , errors = formErrors <| canEnterChat model
              }
            , Cmd.batch
                [ generateRandomChatId
                , authChangeUrl (canEnterChat model) model.key chatPath
                ]
            )

GenerateRandomId id ->
            ( { model | chatterId = String.concat [ model.chatName, "-", id ] }
            , Cmd.none
            )