git.iko.soy/reflex-dom
on develop help sign in
Derive Bounded and Enum for `DeltaMode`
2998cf1John Ericson
reflex-dom-core/src/Reflex/Dom/Builder/Class/Events.hs+1−1
compare with develop
unifiedsplit
@@ -162,7 +162,7 @@ type family EventResultType (en :: EventTag) :: * where
162 EventResultType 'WheelTag = WheelEventResult
162 EventResultType 'WheelTag = WheelEventResult
163
163
164data DeltaMode = DeltaPixel | DeltaLine | DeltaPage
164data DeltaMode = DeltaPixel | DeltaLine | DeltaPage
165− deriving (Show, Read, Eq, Ord)
165+ deriving (Show, Read, Eq, Ord, Bounded, Enum)
166
166
167data WheelEventResult = WheelEventResult
167data WheelEventResult = WheelEventResult
168 { _wheelEventResult_deltaX :: Double
168 { _wheelEventResult_deltaX :: Double