diff options
Diffstat (limited to 'Utility/DiskFree.hs')
| -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 |