Handle onEnter in Elm including input value

onEnter.elm

onEnter : (String -> msg) -> Attribute msg
onEnter tagger =
    let
        isEnter code = 
            if code == 13 then
                Decode.succeed ""
            else
                Decode.fail ""
        decodeEnter =
            Decode.andThen isEnter keyCode
    in
        on "keydown" <| Decode.map2(\key value -> tagger value) decodeEnter targetValue

Thanks for this snippet!