tweak
This commit is contained in:
parent
d75771b0ab
commit
37061c019d
2 changed files with 4 additions and 4 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue