Fix bug in enumFromThenTo
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Fri, 4 Dec 2009 07:03:07 +0000 (07:03 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Fri, 4 Dec 2009 07:03:07 +0000 (07:03 +0000)
Data/Vector/Fusion/Stream/Monadic.hs

index 50b3161..43fb4a5 100644 (file)
@@ -1063,7 +1063,7 @@ enumFromTo_big x y = Stream step x (Exact n)
 -- | Enumerate values from @x@ to @y@
 enumFromThenTo :: (Enum a, Monad m) => a -> a -> a -> Stream m a
 {-# INLINE_STREAM enumFromThenTo #-}
-enumFromThenTo x y z = fromList [x, y .. y]
+enumFromThenTo x y z = fromList [x, y .. z]
 
 -- Conversions
 -- -----------