Using persona to validate emails

1 files changed, 0 insertions, 19 deletions

diff --git a/src/client/View/Events.elm b/src/client/View/Events.elm
deleted file mode 100644
index 1eb9027..0000000
--- a/src/client/View/Events.elm
+++ /dev/null
@@ -1,19 +0,0 @@
-module View.Events
-  ( onSubmitPrevDefault
-  ) where
-
-import Signal
-import Json.Decode as Json
-import Html exposing (..)
-import Html.Events exposing (..)
-import Html.Attributes exposing (..)
-
-onSubmitPrevDefault : Signal.Address a -> a -> Attribute
-onSubmitPrevDefault address value =
-  onWithOptions
-    "submit"
-    { defaultOptions | preventDefault <- True }
-    Json.value
-    (\_ ->
-      Signal.message address value
-    )