git.iko.soy/gigawork-coworking/gigawork-coworking.github.io
on master help sign in
gigawork-coworking/gigawork-coworking.github.io/app/View.elm
24 lines 313 B history raw
1module View exposing (View, map)
3{-|
5@docs View, map
7-}
9import Element exposing (Element)
12{-| -}
13type alias View msg =
14 { title : String
15 , body : Element msg
16 }
19{-| -}
20map : (msg1 -> msg2) -> View msg1 -> View msg2
21map fn doc =
22 { title = doc.title
23 , body = Element.map fn doc.body
24 }