From: Joey Hess <joeyh@joeyh.name>
Date: Thu, 29 Jul 2021 16:18:31 +0000 (-0400)
Subject: remove unncessary debugs
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~1^2~91^2~23
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=3e0b2100390f80f1d4fb400424716158f7257bfd;p=git-annex.git

remove unncessary debugs

Keeping the ones in Annex.InodeSentinal
---

diff --git a/Annex/Content.hs b/Annex/Content.hs
index 7c95621031..a6ef6a73cd 100644
--- a/Annex/Content.hs
+++ b/Annex/Content.hs
@@ -6,7 +6,6 @@
  -}
 
 {-# LANGUAGE CPP #-}
-{-# LANGUAGE OverloadedStrings #-}
 
 module Annex.Content (
 	inAnnex,
@@ -499,19 +498,15 @@ prepSendAnnex key = withObjectLoc key $ \f -> do
 		-- change while the transfer is in progress, so
 		-- generate an inode cache for the starting
 		-- content.
-		then do
-			fastDebug "Annex.Content" ("found no inode cache for " ++ show f)
-			maybeToList <$>
-				withTSDelta (liftIO . genInodeCache f)
+		then maybeToList <$>
+			withTSDelta (liftIO . genInodeCache f)
 		-- Verify that the object is not modified. Usually this
 		-- only has to check the inode cache, but if the cache
 		-- is somehow stale, it will fall back to verifying its
 		-- content.
 		else withTSDelta (liftIO . genInodeCache f) >>= \case
 			Just fc -> ifM (isUnmodified' key f fc cache)
-				( do
-					fastDebug "Annex.Content" ("found inode cache for " ++ show f)
-					return (fc:cache)
+				( return (fc:cache)
 				, return []
 				)
 			Nothing -> return []