Disallow clickable images

This commit is contained in:
Tessa Kelly 2019-04-05 11:15:06 -07:00
parent 5b696dc7da
commit b0a4fb6a19

View File

@ -115,7 +115,7 @@ viewPanels parentMsg panels current =
{-| -} {-| -}
type alias Panel msg = type alias Panel msg =
{ icon : Html msg { icon : Html Never
, title : String , title : String
, content : Html msg , content : Html msg
, buttonLabel : String , buttonLabel : String
@ -145,7 +145,7 @@ viewContent content =
[ content ] [ content ]
viewIcon : Html msg -> Html msg viewIcon : Html Never -> Html msg
viewIcon svg = viewIcon svg =
div div
[ css [ css
@ -163,6 +163,7 @@ viewIcon svg =
] ]
] ]
[ svg ] [ svg ]
|> Html.map never
viewFooter : { label : String, msg : msg } -> Html msg viewFooter : { label : String, msg : msg } -> Html msg