id	summary	reporter	owner	description	type	status	priority	milestone	component	version	resolution	keywords	cc	os	architecture	failure	difficulty	testcase	blockedby	blocking	related
3938	Data growth issue in System.Timeout	leimy		"(This bug is lhs)

The following seemingly simple code causes infinite data growth and resource exhaustion when the code for System.Timeout does not immediately appear to have a bug with respect to resource utilization.

> module Main where

> import System.Timeout
> import Control.Monad

> timeoutval :: Int
> timeoutval = 12 * 10 ^ 6  -- 12 seconds

> doit :: IO (Maybe ())
> doit = timeout (-1) $ return ()


> main :: IO ()
> main = forever $ return ()
"	bug	closed	normal		libraries (other)	6.12.1	fixed			MacOS X	x86	Runtime performance bug