elm-pages-v3-beta/examples/routing/src/View.elm

module View exposing (View, map, placeholder)

import Html.Styled exposing (text)


type alias View msg =
    { title : String
    , body : List (Html.Styled.Html msg)
    }


map : (msg1 -> msg2) -> View msg1 -> View msg2
map fn doc =
    { title = doc.title
    , body = List.map (Html.Styled.map fn) doc.body
    }


placeholder : String -> View msg
placeholder moduleName =
    { title = "Placeholder - " ++ moduleName
    , body = [ text moduleName ]
    }