!should_fail

Rufflewind · Jul 7, 2024 · cf9f3e1 · cf9f3e1
1 parent 40df015
commit cf9f3e1
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/System/Directory/Internal/Posix.hsc b/System/Directory/Internal/Posix.hsc
@@ -127,7 +127,7 @@ exeExtensionInternal = exeExtension
 
 getDirectoryContentsInternal :: OsPath -> IO [OsPath]
 getDirectoryContentsInternal path =
-  withFileRef Nothing path getDirectoryRefContents
+  withFileRef Nothing (path </> os ".") getDirectoryRefContents
 
 getDirectoryRefContents :: FileRef -> IO [OsPath]
 getDirectoryRefContents fileRef =
@@ -193,7 +193,7 @@ type FileRef = Posix.Fd
 withFileRef :: Maybe FileRef -> OsPath -> (FileRef -> IO r) -> IO r
 withFileRef dirRef (OsString name) =
   bracket
-    (Posix.openFdAt dirRef name Posix.ReadOnly defaultFlags)
+    (Posix.openFdAt dirRef name Posix.ReadOnly defaultFlags { Posix.nofollow = True, Posix.directory = True })
     Posix.closeFd
 
 data Subref = NotSubdir -- ^ Not a directory (perhaps regular file or symlink).