We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent b1ef118 commit 7030092Copy full SHA for 7030092
1 file changed
src/Streamly/Coreutils/FileTest/Windows.hsc
@@ -430,10 +430,10 @@ isReadableNow = withPathM isPathReadableNow
430
--
431
isFileWritableNow :: FilePath -> FileStatus -> IO Bool
432
isFileWritableNow path st = do
433
- isDirectory <- testGeneral path st isDir
+ isDirectory <- testWithStatus path st isDir
434
-- Under unix-compat on Windows, ownerWriteMode corresponds to the
435
-- FILE_ATTRIBUTE_READONLY flag being unset.
436
- writable <- testGeneral path st (hasMode ownerWriteMode)
+ writable <- testWithStatus path st (hasMode ownerWriteMode)
437
-- The READONLY attribute on directories does not prevent creating
438
-- files inside the directory.
439
if not writable && not isDirectory
0 commit comments