Fix typo
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Thu, 22 Apr 2010 10:12:15 +0000 (10:12 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Thu, 22 Apr 2010 10:12:15 +0000 (10:12 +0000)
Data/Vector/Fusion/Stream/Monadic.hs

index 932bf64..043b913 100644 (file)
@@ -168,7 +168,7 @@ replicateM n p = Stream step n (Exact (delay_inline max n 0))
   where
     {-# INLINE_INNER step #-}
     step i | i <= 0    = return Done
-           | otherwise = do { x <- p; return $ Yield x (i+1) }
+           | otherwise = do { x <- p; return $ Yield x (i-1) }
 
 generate :: Monad m => Int -> (Int -> a) -> Stream m a
 {-# INLINE generate #-}