git.iko.soy/streamly
on master help sign in
Fix hlint suggestions for Enumeration module
a0d3f83Harendra Kumar
.hlint.ignore−1
compare with master
unifiedsplit
@@ -3,7 +3,6 @@ src/Streamly/Internal/Data/Stream/Serial.hs
3src/Streamly/Internal/Data/Stream/Zip.hs
3src/Streamly/Internal/Data/Stream/Zip.hs
4src/Streamly/Internal/Data/Stream/Parallel.hs
4src/Streamly/Internal/Data/Stream/Parallel.hs
5src/Streamly/Internal/Data/Stream/Async.hs
5src/Streamly/Internal/Data/Stream/Async.hs
6−src/Streamly/Internal/Data/Stream/Enumeration.hs
7src/Streamly/Internal/Data/Stream/StreamDK.hs
6src/Streamly/Internal/Data/Stream/StreamDK.hs
8src/Streamly/Internal/Data/Stream/StreamK.hs
7src/Streamly/Internal/Data/Stream/StreamK.hs
9src/Streamly/Internal/Data/Stream/StreamK/Type.hs
8src/Streamly/Internal/Data/Stream/StreamK/Type.hs
src/Streamly/Internal/Data/Stream/IsStream/Enumeration.hs+6−6
@@ -298,9 +298,9 @@ enumerateFromThenToSmall from next to = Serial.map toEnum $
298enumerateFromThenSmallBounded :: (IsStream t, Monad m, Enumerable a, Bounded a)
298enumerateFromThenSmallBounded :: (IsStream t, Monad m, Enumerable a, Bounded a)
299 => a -> a -> t m a
299 => a -> a -> t m a
300enumerateFromThenSmallBounded from next =
300enumerateFromThenSmallBounded from next =
301− case fromEnum next >= fromEnum from of
301+ if fromEnum next >= fromEnum from
302− True -> enumerateFromThenTo from next maxBound
302+ then enumerateFromThenTo from next maxBound
303− False -> enumerateFromThenTo from next minBound
303+ else enumerateFromThenTo from next minBound
304
304
305-------------------------------------------------------------------------------
305-------------------------------------------------------------------------------
306-- Enumerable type class
306-- Enumerable type class
@@ -505,7 +505,7 @@ ENUMERABLE_UNBOUNDED_INTEGRAL(Integer)
505ENUMERABLE_UNBOUNDED_INTEGRAL(Natural)
505ENUMERABLE_UNBOUNDED_INTEGRAL(Natural)
506
506
507#define ENUMERABLE_FRACTIONAL(FRACTIONAL_TYPE,CONSTRAINT) \
507#define ENUMERABLE_FRACTIONAL(FRACTIONAL_TYPE,CONSTRAINT) \
508−instance (CONSTRAINT) => Enumerable (FRACTIONAL_TYPE) where { \
508+instance (CONSTRAINT) => Enumerable FRACTIONAL_TYPE where { \
509 {-# INLINE enumerateFrom #-}; \
509 {-# INLINE enumerateFrom #-}; \
510 enumerateFrom = enumerateFromFractional; \
510 enumerateFrom = enumerateFromFractional; \
511 {-# INLINE enumerateFromThen #-}; \
511 {-# INLINE enumerateFromThen #-}; \
@@ -517,8 +517,8 @@ instance (CONSTRAINT) => Enumerable (FRACTIONAL_TYPE) where { \
517
517
518ENUMERABLE_FRACTIONAL(Float,)
518ENUMERABLE_FRACTIONAL(Float,)
519ENUMERABLE_FRACTIONAL(Double,)
519ENUMERABLE_FRACTIONAL(Double,)
520−ENUMERABLE_FRACTIONAL(Fixed a,HasResolution a)
520+ENUMERABLE_FRACTIONAL((Fixed a),HasResolution a)
521−ENUMERABLE_FRACTIONAL(Ratio a,Integral a)
521+ENUMERABLE_FRACTIONAL((Ratio a),Integral a)
522
522
523instance Enumerable a => Enumerable (Identity a) where
523instance Enumerable a => Enumerable (Identity a) where
524 {-# INLINE enumerateFrom #-}
524 {-# INLINE enumerateFrom #-}