Skip to content

Commit 1f39607

Browse files
fixup: windows bool type
1 parent 76971b6 commit 1f39607

1 file changed

Lines changed: 3 additions & 3 deletions

File tree

src/Streamly/Coreutils/FileTest/Windows.hsc

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -541,9 +541,9 @@ pathAccess path mask =
541541
pPrivSet pPrivSetLen
542542
pGrantedAccess pAccessStatus
543543
-- ok == 0 means AccessCheck itself failed
544-
if ok == 0
545-
then return False
546-
else peek pAccessStatus
544+
if ok
545+
then peek pAccessStatus
546+
else return False
547547
`catch` handler
548548
where
549549
handler :: SomeException -> IO Bool

0 commit comments

Comments
 (0)