Change onWheel event to require a decoder.

gdotdesign · Mar 4, 2016 · 68badd2 · 68badd2
1 parent 9f61c6a
commit 68badd2
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/source/Html/Extra.elm b/source/Html/Extra.elm
@@ -78,9 +78,9 @@ deltaDecoder =
   Json.at ["deltaY"] Json.float
 
 {-| An event listener that for the wheel event. -}
-onWheel : Signal.Address a -> (Float -> a) -> Html.Attribute
-onWheel address action =
-  Html.Events.on "wheel" deltaDecoder (\a -> Signal.message address (action a))
+onWheel : Json.Decoder b -> Signal.Address a -> (b -> a) -> Html.Attribute
+onWheel decoder address action =
+  Html.Events.on "wheel" decoder (\a -> Signal.message address (action a))
 
 {-| Decodes the window dimesions. -}
 windowDimensionsDecoder : Json.Decoder WindowDimensions