Fix isRealDirectory for Windows

haskell · Feb 20, 2015 · 4a83c8c · 4a83c8c
1 parent 40ade8e
commit 4a83c8c
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/System/Directory.hs b/System/Directory.hs
@@ -493,10 +493,12 @@ removeContentsRecursive path =
 -- | @'isRealDirectory path'@ checks whether /path/ refers to an actual
 -- directory, i.e. not a symbolic link to another directory.
 isRealDirectory :: FilePath -> IO Bool
-isRealDirectory path =
+isRealDirectory path = (`ioeSetLocation` "isRealDirectory") `modifyIOError` do
 #ifdef mingw32_HOST_OS
-  -- ToDo: use Win32 API
-  withFileOrSymlinkStatus "" path isDirectory
+  attr <- Win32.getFileAttributes path
+  return (attr .&. Win32.fILE_ATTRIBUTE_DIRECTORY /= 0 &&
+          attr .&. fILE_ATTRIBUTE_REPARSE_POINT   == 0)
+  where fILE_ATTRIBUTE_REPARSE_POINT = 0x400
 #else
   Posix.isDirectory `fmap` Posix.getSymbolicLinkStatus path
 #endif