如何在Elm视图中迭代列表？

module Main exposing (..)

import Html exposing (Html, div, text)
import List exposing (map)

type alias Model =
    { items : List String
    }

view : Model -> Html Msg
view model =
    div []
        (model.items
            |> List.map renderItem
        )

renderItem : String -> Html Msg
renderItem item =
    div [] [ text item ]

main =
    view { items = ["Item 1", "Item 2", "Item 3"] }