also remove stop propagation from event extras

This commit is contained in:
brookeangel 2019-09-30 15:37:34 -07:00
parent 9ebeaa9566
commit bd52f5db2f

View File

@ -1,4 +1,4 @@
module EventExtras.Styled exposing (onClickForLinkWithHref, onClickPreventDefaultForLinkWithHref, onClickStopPropagation)
module EventExtras.Styled exposing (onClickForLinkWithHref, onClickPreventDefaultForLinkWithHref)
import Html.Styled as Html
import Html.Styled.Events as Events
@ -70,16 +70,3 @@ onClickForLinkWithHref msg =
(isSpecialClick
|> Json.Decode.andThen (succeedIfFalse msg)
)
{-| -}
onClickStopPropagation : msg -> Html.Attribute msg
onClickStopPropagation msg =
onWithStopPropagation "click" msg
{-| -}
onWithStopPropagation : String -> msg -> Html.Attribute msg
onWithStopPropagation name msg =
Events.stopPropagationOn name
(Json.Decode.succeed ( msg, True ))