diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-04-18 13:23:33 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-04-18 13:23:46 -0400 |
| commit | 37061c019d816ff9ddd30cf23833539102741844 (patch) | |
| tree | a14cc0f139fa42d2d1f15d5fd04c10bf5cbfafed /Utility/DiskFree.hs | |
| parent | d75771b0ab88ebec9b573fb1b3ef257e3b19c3ef (diff) | |
tweak
Diffstat (limited to 'Utility/DiskFree.hs')
| -rw-r--r-- | Utility/DiskFree.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Utility/DiskFree.hs b/Utility/DiskFree.hs index 8d07afaf2..ff7070562 100644 --- a/Utility/DiskFree.hs +++ b/Utility/DiskFree.hs @@ -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) |