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

fix build on openbsd

Browse source
This commit is contained in:
James Cook 2021-02-01 11:53:31 -04:00 • committed by Joey Hess
parent 35a5ee92e2
commit 6013abe87a
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Utility/DirWatcher/Kqueue.hs
View file

@ -133,7 +133,7 @@ removeSubDir dirmap dir = do
mapM_ Posix.closeFd $ M.keys toremove mapM_ Posix.closeFd $ M.keys toremove
return rest return rest
where where
(toremove, rest) = M.partition (dirContains dir . dirName) dirmap (toremove, rest) = M.partition (dirContains (toRawFilePath dir) . toRawFilePath . dirName) dirmap
findDirContents :: DirMap -> FilePath -> [FilePath] findDirContents :: DirMap -> FilePath -> [FilePath]
findDirContents dirmap dir = concatMap absolutecontents $ search findDirContents dirmap dir = concatMap absolutecontents $ search