projects
/
ghc-hetmet.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
dee7f31e29ef8f2cdcd2cd0514168db1810b0f98
[ghc-hetmet.git]
/
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')