libraries/base/tests/T7787.hs


1
2
3
4
5
6
7
8

import Control.Concurrent.MVar
import Control.Exception

main = do
  mv <- newMVar 'x'
  e <- try (modifyMVar mv $ \_ -> return undefined)
  let _ = e :: Either SomeException ()
  withMVar mv print -- should not hang