mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

further fix windows build

Browse source 
Thanks to jkniiv for this patch.
This commit is contained in:
Joey Hess 2023-03-06 12:15:53 -04:00
parent 89373c04bb
commit 433608753a
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Utility/DirWatcher/Win32Notify.hs
View file

@ -12,7 +12,7 @@ import Utility.DirWatcher.Types
import qualified Utility.RawFilePath as R import qualified Utility.RawFilePath as R
import System.Win32.Notify import System.Win32.Notify
import qualified System.PosixCompat.Files (isRegularFile) import System.PosixCompat.Files (isRegularFile)
watchDir :: FilePath -> (FilePath -> Bool) -> Bool -> WatchHooks -> IO WatchManager watchDir :: FilePath -> (FilePath -> Bool) -> Bool -> WatchHooks -> IO WatchManager
watchDir dir ignored scanevents hooks = do watchDir dir ignored scanevents hooks = do
@ -60,7 +60,7 @@ watchDir dir ignored scanevents hooks = do
where where
runhook h s = maybe noop (\a -> a f s) (h hooks) runhook h s = maybe noop (\a -> a f s) (h hooks)
getstatus = catchMaybeIO . R.getFileStatus . fromRawFilePath getstatus = catchMaybeIO . R.getFileStatus . toRawFilePath
{- Check each component of the path to see if it's ignored. -} {- Check each component of the path to see if it's ignored. -}
ignoredPath :: (FilePath -> Bool) -> FilePath -> Bool ignoredPath :: (FilePath -> Bool) -> FilePath -> Bool