This commit is contained in:
Joey Hess 2013-12-10 01:35:27 -04:00
parent 7c5261efb1
commit 5b0cb642c9

View file

@ -43,6 +43,8 @@ getDiskFree path = catchMaybeIO $ do
return $ toInteger sectors * toInteger bytes * toInteger nfree
#else
#warning Building without disk free space checking support
getDiskFree :: FilePath -> IO (Maybe Integer)
getDiskFree _ = return Nothing