Added file-flag to createFile call, fixing getFileStatus for directories

jacobstanley · Jun 21, 2014 · 465380c · 465380c
1 parent 5a991a8
commit 465380c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/System/PosixCompat/Files.hsc b/src/System/PosixCompat/Files.hsc
@@ -322,7 +322,7 @@ getFileStatus path = do
                  (fILE_SHARE_READ .|. fILE_SHARE_WRITE .|. fILE_SHARE_DELETE)
                  Nothing
                  oPEN_EXISTING
-                 sECURITY_ANONYMOUS
+                 (sECURITY_ANONYMOUS .|. fILE_FLAG_BACKUP_SEMANTICS)
                  Nothing
 
 permsToMode :: Permissions -> FileMode