ghc/tests/lib/IO/openFile003.hs

   1 import IO
   2
   3 -- !!! Open a directory (should fail)
   4
   5 main = do
   6   r <- try (openFile "." ReadMode)
   7   print r
   8   r <- try (openFile "." WriteMode)
   9   print r
  10   r <- try (openFile "." AppendMode)
  11   print r
  12   r <- try (openFile "." ReadWriteMode)
  13   print r