projects / ghc-hetmet.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
[project @ 2001-08-22 11:45:06 by sewardj]
[ghc-hetmet.git] / ghc / tests / concurrent / should_run / conc026.hs
1 -- test for blocking putMVar
2
3 import Concurrent
4
5 main = do
6   m <- newMVar ()
7   forkIO (threadDelay 100000 >> takeMVar m)
8   putMVar m ()  
Glasgow Haskell Compiler with heterogeneous metaprogramming (generalized arrows and modal types)