From: simonmar <unknown>
Date: Tue, 25 Jul 2000 15:54:38 +0000 (+0000)
Subject: [project @ 2000-07-25 15:54:38 by simonmar]
X-Git-Tag: Approximately_9120_patches~3947
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=94b2b47aaf1798b0bf78170300d7f45ae3d8a488;p=ghc-hetmet.git

[project @ 2000-07-25 15:54:38 by simonmar]
increase the repeat count; this bug is pretty fragile
---

diff --git a/ghc/tests/io/should_run/io033.hs b/ghc/tests/io/should_run/io033.hs
index 33c9ed7..0e8620c 100644
--- a/ghc/tests/io/should_run/io033.hs
+++ b/ghc/tests/io/should_run/io033.hs
@@ -24,4 +24,4 @@ slurp [] = return ()
 slurp (x:xs) = x `seq` slurp xs
 
 main :: IO ()
-main = sequence_ (take 50 (repeat doTest))
+main = sequence_ (take 200 (repeat doTest))