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)