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

tweak

Browse source
This commit is contained in:
Joey Hess 2012-03-22 22:49:33 -04:00
parent 6f514155f1
commit 0f2052446f
1 changed files with 1 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Utility/DiskFree.hs
View file

@ -23,10 +23,7 @@ getDiskFree path = withFilePath path $ \c_path -> do
free <- c_diskfree c_path free <- c_diskfree c_path
ifM (safeErrno <$> getErrno) ifM (safeErrno <$> getErrno)
( return $ Just $ toInteger free ( return $ Just $ toInteger free
, do , return Nothing
Errno i <- getErrno
print i
return Nothing
) )
where where
safeErrno (Errno v) = v == 0 safeErrno (Errno v) = v == 0