We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 76971b6 commit 1f39607Copy full SHA for 1f39607
1 file changed
src/Streamly/Coreutils/FileTest/Windows.hsc
@@ -541,9 +541,9 @@ pathAccess path mask =
541
pPrivSet pPrivSetLen
542
pGrantedAccess pAccessStatus
543
-- ok == 0 means AccessCheck itself failed
544
- if ok == 0
545
- then return False
546
- else peek pAccessStatus
+ if ok
+ then peek pAccessStatus
+ else return False
547
`catch` handler
548
where
549
handler :: SomeException -> IO Bool
0 commit comments