This commit is contained in:
Joey Hess 2012-04-18 13:23:33 -04:00
parent d75771b0ab
commit 37061c019d
2 changed files with 4 additions and 4 deletions

View file

@ -18,7 +18,7 @@ import Foreign.C.Error
foreign import ccall unsafe "libdiskfree.h diskfree" c_diskfree
:: CString -> IO CULLong
getDiskFree :: String -> IO (Maybe Integer)
getDiskFree :: FilePath -> IO (Maybe Integer)
getDiskFree path = withFilePath path $ \c_path -> do
free <- c_diskfree c_path
ifM (safeErrno <$> getErrno)