如何在Elm中处理来自递归HTML UI的消息？

type Msg
    = ButtonClicked
    | ChildMsg Int Child.Msg

update : Msg -> Model -> (Model, Cmd Msg)
update msg model =
    case msg of
        ButtonClicked ->
            -- 处理按钮点击事件

        ChildMsg index childMsg ->
            -- 处理来自子组件的消息
            let
                (updatedChildModel, childCmd) = Child.update childMsg (List.get index model.children)
                updatedChildren = List.update index updatedChildModel model.children
            in
            ({ model | children = updatedChildren }, Cmd.map (ChildMsg index) childCmd)

view : Model -> Html Msg
view model =
    div []
        [ button [ onClick ButtonClicked ] [ text "Click Me" ]
        , div [] (List.indexedMap (\index child -> Child.view (ChildMsg index) child) model.children)
        ]