blob: 4f7c4b27d6c43e7347fa7bab05921b887b340e57 (
plain)
1
2
3
4
5
6
7
8
9
|
import System.IO.Error
-- test for a bug in GHC <= 4.08.2: handles were being left locked after
-- being shown in an error message.
main = do
getContents
catchIOError getChar (\e -> print e >> return 'x')
catchIOError getChar (\e -> print e >> return 'x')
|
