27 Jan
2010
27 Jan
'10
1:17 a.m.
On Tue, 26 Jan 2010 10:54:03 -0800
Thomas DuBuisson
doEvent f usDelay = forkIO $ threadDelay usDelay doEvent f usDelay f
Are you sure that's right ? It seems to be a memory-gobbling infinite loop... How about this: f = putStrLn "foo" doEvent f usDelay = do forkIO f threadDelay usDelay doEvent f 1000000 main = doEvent f 1000000 which seems to work. That makes me suspicious :-| Brian