fix OSx build better
This commit is contained in:
parent
91129f508f
commit
1eb64f0249
1 changed files with 1 additions and 1 deletions
|
@ -90,7 +90,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.getSymbolicLinkStatus . fromRawFilePath
|
getstatus = catchMaybeIO . R.getSymbolicLinkStatus . 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
|
||||||
|
|
Loading…
Add table
Reference in a new issue