[project @ 2001-08-22 12:24:41 by simonmar]

[ghc-hetmet.git] / ghc / tests / simplCore / should_compile / simpl006.hs

diff --git a/ghc/tests/simplCore/should_compile/simpl006.hs b/ghc/tests/simplCore/should_compile/simpl006.hs
deleted file mode 100644 (file)
index 81e43a5..0000000
--- a/ghc/tests/simplCore/should_compile/simpl006.hs
+++ /dev/null
@@ -1,19 +0,0 @@
--- !!! This one sent 4.06 into an infinite loop
-
--- But it worked ok if Simpl006Help.forever is 
--- defined in this module.  I have no idea why!
-
-{-# OPTIONS -O #-}
-
-module ShouldCompile where
-
-import Concurrent 
-import Simpl006Help
-
-after :: Int -> IO a -> IO a
-after d c = c
-
-every :: Int -> IO a -> IO ()
-every d c = forever (after d c)
-
-