id	summary	reporter	owner	description	type	status	priority	milestone	component	version	resolution	keywords	cc
2	Socket related IO cannot be be interrupted on Windows	igloo		"Originally reported here: http://hackage.haskell.org/trac/ghc/ticket/2943

----

While playing with socket communication, I noticed that socket IO cannot be interrupted or killed. The attached program simply hangs, irregardless whether is was complied using the -threaded flag or not.

{{{
import Network
import Control.Concurrent

main = withSocketsDo $ do
    tid <- forkIO $ do
        s <- listenOn (PortNumber 1234)
        accept s
        return ()
    threadDelay 2000000
    killThread tid
}}}
"	defect	new	major		network