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

use safe FFI imports for diskfree

Browse source 
There's a minor performance overhead to doing this, but this way I don't
have to worry about a situation where statfs might block for a long time.
For example, when it's on a network filesystem.
This commit is contained in:
Joey Hess 2012-07-20 15:03:58 -04:00
parent da4c506d61
commit 9d26b532ab
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Utility/DiskFree.hs
View file

@ -15,7 +15,7 @@ import Foreign.C.Types
import Foreign.C.String import Foreign.C.String
import Foreign.C.Error import Foreign.C.Error
foreign import ccall unsafe "libdiskfree.h diskfree" c_diskfree foreign import ccall safe "libdiskfree.h diskfree" c_diskfree
:: CString -> IO CULLong :: CString -> IO CULLong
getDiskFree :: FilePath -> IO (Maybe Integer) getDiskFree :: FilePath -> IO (Maybe Integer)