@@ -298,9 +298,9 @@ enumerateFromThenToSmall from next to = Serial.map toEnum $
298298enumerateFromThenSmallBounded :: (IsStream t, Monad m, Enumerable a, Bounded a)
299299 => a -> a -> t m a
300300enumerateFromThenSmallBounded from next =
301− case fromEnum next >= fromEnum from of
302− True -> enumerateFromThenTo from next maxBound
303− False -> enumerateFromThenTo from next minBound
301+ if fromEnum next >= fromEnum from
302+ then enumerateFromThenTo from next maxBound
303+ else enumerateFromThenTo from next minBound
304304
305305-------------------------------------------------------------------------------
306306-- Enumerable type class
@@ -505,7 +505,7 @@ ENUMERABLE_UNBOUNDED_INTEGRAL(Integer)
505505ENUMERABLE_UNBOUNDED_INTEGRAL(Natural)
506506
507507#define ENUMERABLE_FRACTIONAL(FRACTIONAL_TYPE,CONSTRAINT) \
508−instance (CONSTRAINT) => Enumerable (FRACTIONAL_TYPE) where { \
508+instance (CONSTRAINT) => Enumerable FRACTIONAL_TYPE where { \
509509 {-# INLINE enumerateFrom #-}; \
510510 enumerateFrom = enumerateFromFractional; \
511511 {-# INLINE enumerateFromThen #-}; \
@@ -517,8 +517,8 @@ instance (CONSTRAINT) => Enumerable (FRACTIONAL_TYPE) where { \
517517
518518ENUMERABLE_FRACTIONAL(Float,)
519519ENUMERABLE_FRACTIONAL(Double,)
520−ENUMERABLE_FRACTIONAL(Fixed a,HasResolution a)
521−ENUMERABLE_FRACTIONAL(Ratio a,Integral a)
520+ENUMERABLE_FRACTIONAL((Fixed a),HasResolution a)
521+ENUMERABLE_FRACTIONAL((Ratio a),Integral a)
522522
523523instance Enumerable a => Enumerable (Identity a) where
524524 {-# INLINE enumerateFrom #-}