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

fix build on OSX

Browse source 
Breakage from 54ad1b4cfb
This commit is contained in:
Joey Hess 2023-03-08 12:17:09 -04:00
parent ba2d51ca80
commit 0dac6411d8
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Utility/DirWatcher/FSEvents.hs
View file

@ -7,8 +7,9 @@
module Utility.DirWatcher.FSEvents (watchDir) where
import Common hiding (isDirectory)
import Common
import Utility.DirWatcher.Types
import qualified Utility.RawFilePath as R
import System.OSX.FSEvents
import qualified System.Posix.Files as Files
@ -89,7 +90,7 @@ watchDir dir ignored scanevents hooks = do
where
runhook h s = maybe noop (\a -> a f s) (h hooks)
getstatus = catchMaybeIO . getSymbolicLinkStatus
getstatus = catchMaybeIO . R.getSymbolicLinkStatus . fromRawFilePath
{- Check each component of the path to see if it's ignored. -}
ignoredPath :: (FilePath -> Bool) -> FilePath -> Bool