From: Joey Hess <joeyh@joeyh.name>
Date: Tue, 6 Oct 2015 21:28:20 +0000 (-0400)
Subject: oops, didn't mean to commit this debug
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~1^2~326^2~71
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=6fbabfcf1627472d489eaab633f39db892cf5cc4;p=git-annex.git

oops, didn't mean to commit this debug
---

diff --git a/Logs/PreferredContent.hs b/Logs/PreferredContent.hs
index 1e631f86ef..c21d67010f 100644
--- a/Logs/PreferredContent.hs
+++ b/Logs/PreferredContent.hs
@@ -57,13 +57,8 @@ checkMap getmap mu notpresent mkey afile d = do
 	u <- maybe getUUID return mu
 	m <- getmap
 	case M.lookup u m of
-		Nothing -> do
-			liftIO $ print ("default for", u, d)
-			return d
-		Just matcher -> do
-			r <- checkMatcher matcher mkey afile notpresent d
-			liftIO $ print ("checking for ", u, r)
-			return r
+		Nothing -> return d
+		Just matcher -> checkMatcher matcher mkey afile notpresent d
 
 preferredContentMap :: Annex (FileMatcherMap Annex)
 preferredContentMap = maybe (fst <$> preferredRequiredMapsLoad) return