@@ -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