!should_fail

Rufflewind · Jul 7, 2024 · 4e58365 · 4e58365
1 parent 40df015
commit 4e58365
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/System/Directory/Internal/Posix.hsc b/System/Directory/Internal/Posix.hsc
@@ -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).