tests/doesDirectoryExist001.hs

   1 {-# LANGUAGE CPP #-}
   2 -- !!! "/" was not recognised as a directory in 6.0.x
   3 import System.Directory
   4
   5 #ifdef mingw32_HOST_OS
   6 root = "C:\\"
   7 #else
   8 root = "/"
   9 #endif
  10
  11 main = doesDirectoryExist root >>= print