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

close fds

Browse source
This commit is contained in:
Joey Hess 2012-06-18 19:14:58 -04:00
parent 1f6d80007c
commit ae7d07ddcb
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
Utility/Kqueue.hs
View file

@ -45,8 +45,12 @@ addSubDir :: DirMap -> FilePath -> (FilePath -> Bool) -> IO DirMap
addSubDir dirmap dir prune = M.union dirmap <$> scanRecursive dir prune
{- Removes a subdirectory (and all its subdirectories) from a directory map. -}
removeSubDir :: FilePath -> DirMap -> DirMap
removeSubDir dir = M.filter (not . dirContains dir)
removeSubDir :: FilePath -> DirMap -> IO DirMap
removeSubDir dir dirmap = do
mapM_ closeFd $ M.keys toremove) $ closeFd
return rest
where
(toremove, rest) = M.partition (dirContains dir) dirmap
foreign import ccall unsafe "libkqueue.h init_kqueue" c_init_kqueue
:: CInt -> Ptr Fd -> IO Fd