blob: 87a37690b280a2f34f4cbbf7580577b2ca2c3468 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
import Control.Concurrent
import System.IO
import System.Timeout
main :: IO ()
main = do
forkIO $ do
threadDelay (5 * 1000000)
-- The timeout should terminate before we ever make it here
putStrLn "t=5 seconds: we shouldn't be here"
timeout (1 * 1000000) $ do
hWaitForInput stdin (10 * 1000)
putStrLn "we shouldn't be here"
return ()
|
