Skip to content

Commit 7030092

Browse files
fixup: windows testgeneral
1 parent b1ef118 commit 7030092

1 file changed

Lines changed: 2 additions & 2 deletions

File tree

src/Streamly/Coreutils/FileTest/Windows.hsc

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -430,10 +430,10 @@ isReadableNow = withPathM isPathReadableNow
430430
--
431431
isFileWritableNow :: FilePath -> FileStatus -> IO Bool
432432
isFileWritableNow path st = do
433-
isDirectory <- testGeneral path st isDir
433+
isDirectory <- testWithStatus path st isDir
434434
-- Under unix-compat on Windows, ownerWriteMode corresponds to the
435435
-- FILE_ATTRIBUTE_READONLY flag being unset.
436-
writable <- testGeneral path st (hasMode ownerWriteMode)
436+
writable <- testWithStatus path st (hasMode ownerWriteMode)
437437
-- The READONLY attribute on directories does not prevent creating
438438
-- files inside the directory.
439439
if not writable && not isDirectory

0 commit comments

Comments
 (0)