diff options
Diffstat (limited to 'src/StatFS.hsc')
| -rw-r--r-- | src/StatFS.hsc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/StatFS.hsc b/src/StatFS.hsc index d785b89..d007d08 100644 --- a/src/StatFS.hsc +++ b/src/StatFS.hsc @@ -58,7 +58,7 @@ foreign import ccall unsafe "sys/vfs.h statfs64" #endif c_statfs :: CString -> Ptr CStatfs -> IO CInt -toI :: CLong -> Integer +toI :: CULong -> Integer toI = toInteger getFileSystemStats :: String -> IO (Maybe FileSystemStats) @@ -79,5 +79,5 @@ getFileSystemStats path = , fsStatByteCount = toI bcount * bpb , fsStatBytesFree = toI bfree * bpb , fsStatBytesAvailable = toI bavail * bpb - , fsStatBytesUsed = toI (bcount - bfree) * bpb + , fsStatBytesUsed = toI (bcount - bavail) * bpb } |