Commit b0f8e82c authored by Simon Marlow's avatar Simon Marlow
Browse files

Fix this test on a fast machine

The artificial loop wasn't running for long enough for a context
switch to happen, so the finalizer wasn't getting to run early enough.
parent 4ef6b43d
......@@ -21,4 +21,4 @@ main = do
a <- new (55 :: Int)
env <- new (66 :: Int)
fp <- newForeignPtrEnv finptr env a
foldl' (+) 0 [1..500000] `seq` return ()
foldl' (+) 0 [1..1000000] `seq` return ()
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment