From 94b2b47aaf1798b0bf78170300d7f45ae3d8a488 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 25 Jul 2000 15:54:38 +0000
Subject: [PATCH] [project @ 2000-07-25 15:54:38 by simonmar] increase the
 repeat count; this bug is pretty fragile

---
 ghc/tests/io/should_run/io033.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/tests/io/should_run/io033.hs b/ghc/tests/io/should_run/io033.hs
index 33c9ed7e59ea..0e8620ce0399 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))
-- 
GitLab