blob: 2802709450c8639de741840dd015b564115e13d6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
module View.Events exposing
( onSubmitPrevDefault
)
import Json.Decode as Json
import Html exposing (..)
import Html.Events exposing (..)
import Html.Attributes exposing (..)
import Msg exposing (Msg)
onSubmitPrevDefault : Msg -> Attribute Msg
onSubmitPrevDefault value =
onWithOptions
"submit"
{ defaultOptions | preventDefault = True }
(Json.succeed value)
|
