25 lines
334 B
Elm
25 lines
334 B
Elm
|
module View exposing (View, map)
|
||
|
|
|
||
|
|
{-|
|
||
|
|
|
||
|
|
@docs View, map
|
||
|
|
|
||
|
|
-}
|
||
|
|
|
||
|
|
import Html.Styled as Html exposing (Html)
|
||
|
|
|
||
|
|
|
||
|
|
{-| -}
|
||
|
|
type alias View msg =
|
||
|
|
{ title : String
|
||
|
|
, body : List (Html msg)
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
{-| -}
|
||
|
|
map : (msg1 -> msg2) -> View msg1 -> View msg2
|
||
|
|
map fn doc =
|
||
|
|
{ title = doc.title
|
||
|
|
, body = List.map (Html.map fn) doc.body
|
||
|
|
}
|