projects / ghc-hetmet.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
[project @ 2001-05-03 12:30:35 by simonpj]
[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)