This commit is contained in:
Joey Hess 2013-03-13 14:54:52 -04:00
parent 9b657a2ccc
commit 672fb29b06

View file

@ -9,14 +9,14 @@
module Utility.DiskFree ( getDiskFree ) where module Utility.DiskFree ( getDiskFree ) where
#ifdef WITH_CLIBS
import Common import Common
import Foreign.C.Types import Foreign.C.Types
import Foreign.C.String import Foreign.C.String
import Foreign.C.Error import Foreign.C.Error
#ifdef WITH_CLIBS
foreign import ccall safe "libdiskfree.h diskfree" c_diskfree foreign import ccall safe "libdiskfree.h diskfree" c_diskfree
:: CString -> IO CULLong :: CString -> IO CULLong