fixup: windows, remove toBool

Author: harendra-kumar

src/Streamly/Coreutils/FileTest/Windows.hsc

@@ -78,7 +78,6 @@ import System.Win32.Types
     , LPDWORD
     , failIfFalse_
     , iNVALID_HANDLE_VALUE
-    , toBool
     , withFilePath
     )
 
@@ -375,7 +374,7 @@ isPathOwnedByCurrentUser :: FilePath -> IO Bool
 isPathOwnedByCurrentUser path =
     withFileOwnerSID path $ \fileSid ->
         withEffectiveUserSID $ \userSid ->
-            toBool <$> c_EqualSid fileSid userSid
+            c_EqualSid fileSid userSid
 
 isOwnedByCurrentUser :: FileTest
 isOwnedByCurrentUser = withPathM isPathOwnedByCurrentUser
@@ -388,7 +387,7 @@ isPathOwnedByCurrentGroup :: FilePath -> IO Bool
 isPathOwnedByCurrentGroup path =
     withFilePrimaryGroupSID path $ \fileSid ->
         withEffectiveGroupSID $ \userSid ->
-            (/= 0) <$> c_EqualSid fileSid userSid
+            c_EqualSid fileSid userSid
 
 isOwnedByCurrentGroup :: FileTest
 isOwnedByCurrentGroup = withPathM isPathOwnedByCurrentGroup