diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-03-22 22:49:33 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-03-22 23:02:20 -0400 |
| commit | 0f2052446f90f806961a6430bacc1b98c1ae7585 (patch) | |
| tree | 0d2064f08f7e45bd4e4f9707a39f08b2ff9c0f52 | |
| parent | 6f514155f194862e9616a73d8881253ed19eb5b9 (diff) | |
tweak
| -rw-r--r-- | Utility/DiskFree.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/Utility/DiskFree.hs b/Utility/DiskFree.hs index e02794954..bde6ef8ca 100644 --- a/Utility/DiskFree.hs +++ b/Utility/DiskFree.hs @@ -23,10 +23,7 @@ getDiskFree path = withFilePath path $ \c_path -> do free <- c_diskfree c_path ifM (safeErrno <$> getErrno) ( return $ Just $ toInteger free - , do - Errno i <- getErrno - print i - return Nothing + , return Nothing ) where safeErrno (Errno v) = v == 0 |