Migrate to elm 0.17

1 files changed, 7 insertions, 9 deletions

diff --git a/src/client/elm/View/Events.elm b/src/client/elm/View/Events.elm
index c9dff9f..2802709 100644
--- a/src/client/elm/View/Events.elm
+++ b/src/client/elm/View/Events.elm
@@ -1,19 +1,17 @@
-module View.Events
+module View.Events exposing
   ( 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 =
+import Msg exposing (Msg)
+
+onSubmitPrevDefault : Msg -> Attribute Msg
+onSubmitPrevDefault value =
   onWithOptions
     "submit"
     { defaultOptions | preventDefault = True }
-    Json.value
-    (\_ ->
-      Signal.message address value
-    )
+    (Json.succeed value)