From: Simon Marlow <simonmar@microsoft.com>
Date: Tue, 5 Feb 2008 14:54:50 +0000 (+0000)
Subject: make this test work on Windows
X-Git-Tag: 2008-05-28~2
X-Git-Url: http://git.megacz.com/?p=haskell-directory.git;a=commitdiff_plain;h=2a9e02859eae925534c29ad47fa3342472929e9b

make this test work on Windows
I have no idea why it worked before
---

diff --git a/tests/doesDirectoryExist001.hs b/tests/doesDirectoryExist001.hs
index be26ec0..2548183 100644
--- a/tests/doesDirectoryExist001.hs
+++ b/tests/doesDirectoryExist001.hs
@@ -1,4 +1,11 @@
+{-# LANGUAGE CPP #-}
 -- !!! "/" was not recognised as a directory in 6.0.x
 import System.Directory
-main = doesDirectoryExist "/" >>= print
 
+#ifdef mingw32_HOST_OS
+root = "C:\\"
+#else
+root = "/"
+#endif
+
+main = doesDirectoryExist root >>= print