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

use safe FFI imports

Browse source 
This avoids blocking all threads when calling waitchange_kqueue,
which blocks.
This commit is contained in:
Joey Hess 2012-07-20 15:03:24 -04:00
parent 833bd24a33
commit da4c506d61
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Utility/Kqueue.hs
View file

@ -142,11 +142,11 @@ findDirContents dirmap dir = concatMap absolutecontents $ search
search = map snd $ M.toList $ search = map snd $ M.toList $
M.filter (\i -> dirName i == dir) dirmap M.filter (\i -> dirName i == dir) dirmap
foreign import ccall unsafe "libkqueue.h init_kqueue" c_init_kqueue foreign import ccall safe "libkqueue.h init_kqueue" c_init_kqueue
:: IO Fd :: IO Fd
foreign import ccall unsafe "libkqueue.h addfds_kqueue" c_addfds_kqueue foreign import ccall safe "libkqueue.h addfds_kqueue" c_addfds_kqueue
:: Fd -> CInt -> Ptr Fd -> IO () :: Fd -> CInt -> Ptr Fd -> IO ()
foreign import ccall unsafe "libkqueue.h waitchange_kqueue" c_waitchange_kqueue foreign import ccall safe "libkqueue.h waitchange_kqueue" c_waitchange_kqueue
:: Fd -> IO Fd :: Fd -> IO Fd
{- Initializes a Kqueue to watch a directory, and all its subdirectories. -} {- Initializes a Kqueue to watch a directory, and all its subdirectories. -}