Typo
[packages/base.git] / tests / T7787.hs
1 import Control.Concurrent.MVar
2 import Control.Exception
3
4 main = do
5 mv <- newMVar 'x'
6 e <- try (modifyMVar mv $ \_ -> return undefined)
7 let _ = e :: Either SomeException ()
8 withMVar mv print -- should not hang