From e2c894d3df9cba09d16d3bcd311bc129030b7876 Mon Sep 17 00:00:00 2001 From: Joey Hess <joeyh@joeyh.name> Date: Fri, 26 Oct 2018 12:56:40 -0400 Subject: [PATCH] remove debug prints --- Annex/Content.hs | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/Annex/Content.hs b/Annex/Content.hs index e7574d87be..b58f3e10b9 100644 --- a/Annex/Content.hs +++ b/Annex/Content.hs @@ -750,21 +750,17 @@ isUnmodified key f = go =<< geti go (Just fc) = isUnmodifiedCheap' key fc <||> expensivecheck fc expensivecheck fc = ifM (verifyKeyContent RetrievalAllKeysSecure AlwaysVerify UnVerified key f) ( do - liftIO $ print "content verified" -- The file could have been modified while it was -- being verified. Detect that. ifM (geti >>= maybe (return False) (compareInodeCaches fc)) ( do -- Update the InodeCache to avoid -- performing this expensive check again. - liftIO $ print "update inode cache" Database.Keys.addInodeCaches key [fc] return True , return False ) - , do - liftIO $ print "content not verified" - return False + , return False ) geti = withTSDelta (liftIO . genInodeCache f)