mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

warning

Browse source
This commit is contained in:
Joey Hess 2013-12-10 01:35:27 -04:00
parent 7c5261efb1
commit 5b0cb642c9
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Utility/DiskFree.hs
View file

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