ghc/tests/lib/IO/IOError001.hs

   1
   2 -- test for a bug in GHC <= 4.08.2: handles were being left locked after
   3 -- being shown in an error message.
   4 main = do
   5   getContents
   6   catch getChar (\e -> print e >> return 'x')
   7   catch getChar (\e -> print e >> return 'x')