Brian Denheyer
doEvent f usDelay = forkIO $ threadDelay usDelay doEvent f usDelay f
There's a missing 'do' here, right?
Yes - I said that in a later e-mail but it doesn't fix me violating my own peeve about non-functional code snippits on -cafe.
Infinite loop? yes, that is what you wanted. Memory gobbling? Why would you think that?
Why would I think that ?
doEvent f usDelay = do forkIO $ threadDelay usDelay doEvent f usDelay f
Are you sure this isn't interpreted as:
doEvent f usDelay = do (forkIO $ threadDelay usDelay) doEvent f usDelay f
The full code I ran and thought we were talking about (more or less) is inline here. For clarity - yes I know they are different in that one executes 'f' before the first sleep and the other does not. ------------- START CODE ----------------- import Control.Concurrent import Control.Monad (forever) import System.IO (hFlush, stdout) doEvent f usDelay = forkIO $ do threadDelay usDelay doEvent f usDelay f doEvent2 f usDelay = do forkIO f threadDelay usDelay doEvent2 f usDelay main = do doEvent func 1000000 >> forever (threadDelay maxBound) main2 = do doEvent2 func 1000000 >> forever (threadDelay maxBound) func = putStr "." >> hFlush stdout ----------------------- END CODE -------------------
I.e. just forking off processes that only does a delay, never even getting to 'f'?
The version you referenced is a little weird but so long as you fix the indentation it should be fine (drop "forkIO $ f" to the next line). Cheers, Thomas