Elm Msg Chain Madess

Main.elm

SubmitMessage ->
    ( model
    , getTime
    )

GotTime time ->
    ( { model | timeSent = Time.posixToMillis time }
    , generateRandomId
    )

GenerateRandomId id ->
    let
        message =
            Message
                id
                model.userId
                (String.trim model.pendingMessage)
                model.room.id
                (Session.chatName model.session)
                model.timeSent
    in
    ( { model | pendingMessage = "" }
    , storeMessage (messageEncoder message)
    )