ghc/tests/simplCore/should_compile/simpl006.hs

   1 -- !!! This one sent 4.06 into an infinite loop
   2
   3 -- But it worked ok if Simpl006Help.forever is
   4 -- defined in this module.  I have no idea why!
   5
   6 {-# OPTIONS -O #-}
   7
   8 module ShouldCompile where
   9
  10 import Concurrent
  11 import Simpl006Help
  12
  13 after :: Int -> IO a -> IO a
  14 after d c = c
  15
  16 every :: Int -> IO a -> IO ()
  17 every d c = forever (after d c)
  18
  19