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

left unsafe imports here; added a comment with a rationalle

Browse source
This commit is contained in:
Joey Hess 2012-07-20 15:07:48 -04:00
parent 9d26b532ab
commit f6d4786b86
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Utility/Mounts.hsc
View file

@ -57,11 +57,13 @@ getMounts = do
} }
getmntent h (ent:c) getmntent h (ent:c)
{- Using unsafe imports because the C functions are belived to never block.
- Note that getmntinfo is called with MNT_NOWAIT to avoid possibly blocking;
- while getmntent only accesses a file in /etc (or /proc) that should not
- block. -}
foreign import ccall unsafe "libmounts.h mounts_start" c_mounts_start foreign import ccall unsafe "libmounts.h mounts_start" c_mounts_start
:: IO (Ptr ()) :: IO (Ptr ())
foreign import ccall unsafe "libmounts.h mounts_next" c_mounts_next foreign import ccall unsafe "libmounts.h mounts_next" c_mounts_next
:: Ptr () -> IO (Ptr ()) :: Ptr () -> IO (Ptr ())
foreign import ccall unsafe "libmounts.h mounts_end" c_mounts_end foreign import ccall unsafe "libmounts.h mounts_end" c_mounts_end
:: Ptr () -> IO CInt :: Ptr () -> IO CInt