nested.elm

-- MAIN

type Msg
    = UI UI.Msg
    | Receive String
    | Send String


update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
    case msg of
        UI uiMsg ->
            let
                ( ui, uiCmds ) =
                    UI.update uiMsg model.ui
            in
                ( { model | ui = ui }, Cmd.map UI uiCmds )

        Receive subMsg ->
            model ! []

        Send subMsg ->
            ( model, WebSocket.send endpoint subMsg )
            
-- UI

type Msg
    = Chat Chat.Msg


update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
    case msg of
        Chat subMsg ->
            let
                ( chat, chatCmds ) =
                    Chat.update subMsg model.chat
            in
                ( { model | chat = chat }, Cmd.map Chat chatCmds )

-- CHAT


type Msg
    = UpdateField String
    | Send String


update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
    case msg of
        UpdateField input ->
            { model | field = input } ! []

        Send input ->
            { model | field = "" } ! []