From 2a9e02859eae925534c29ad47fa3342472929e9b Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 5 Feb 2008 14:54:50 +0000 Subject: [PATCH] make this test work on Windows I have no idea why it worked before --- tests/doesDirectoryExist001.hs | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) 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 -- 1.7.10.4