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

fix build on windows

Browse source
This commit is contained in:
Joey Hess 2023-03-03 12:58:39 -04:00
parent 3b0cedf15a
commit 398633c12b
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
3 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Utility/DirWatcher/Win32Notify.hs
View file

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