warning fix
authorSimon Marlow <marlowsd@gmail.com>
Fri, 25 Mar 2011 12:54:18 +0000 (12:54 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Fri, 25 Mar 2011 12:54:18 +0000 (12:54 +0000)
Control/Concurrent/STM/TArray.hs

index e0ca866..534a340 100644 (file)
@@ -59,6 +59,6 @@ rep :: Monad m => Int -> m a -> m [a]
 rep n m = go n []
     where
       go 0 xs = return xs
-      go n xs = do
+      go i xs = do
           x <- m
-          go (n-1) (x:xs)
+          go (i-1) (x:xs)