blob: ac38869638765f95c9a45d3efae207aa7d714d70 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
-- !!! 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 Control.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)
|