From 0f2052446f90f806961a6430bacc1b98c1ae7585 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 22 Mar 2012 22:49:33 -0400 Subject: tweak --- Utility/DiskFree.hs | 5 +---- 1 file changed, 1 insertion(+), 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 -- cgit v1.2.3