on develop help sign in
Derive Bounded and Enum for `DeltaMode`
commit2998cf1a2a7cf5fc7e211c45c26d69d847cee73a authorJohn Ericson <git@JohnEricson.me> dateWed 11 Dec 2019, 13:34 (7 years ago) parent77e4712
1 file changed+1−1
reflex-dom-core/src/Reflex/Dom/Builder/Class/Events.hs+1−1
reflex-dom-core/src/Reflex/Dom/Builder/Class/Events.hs+1−1
@@ -162,7 +162,7 @@ type family EventResultType (en :: EventTag) :: * where
162162 EventResultType 'WheelTag = WheelEventResult
163163
164164data DeltaMode = DeltaPixel | DeltaLine | DeltaPage
165− deriving (Show, Read, Eq, Ord)
165+ deriving (Show, Read, Eq, Ord, Bounded, Enum)
166166
167167data WheelEventResult = WheelEventResult
168168 { _wheelEventResult_deltaX :: Double