Fixed bug in System.Event.Array.mapM_

The loop didn't recurse causing only the first element to get mapped over.
gregorycollins · Aug 9, 2009 · 665214b · 665214b
1 parent 68226cc
commit 665214b
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/System/Event/Array.hs b/src/System/Event/Array.hs
@@ -94,4 +94,5 @@ mapM_ (Array ref) f =
                   | otherwise = do
                e <- peek (ptr `plusPtr` n)
                f e
+               loop (n + 1)
        loop 0