oops, didn't mean to commit this debug

diff --git a/Logs/PreferredContent.hs b/Logs/PreferredContent.hs
index 1e631f86ef5d02863ba89ac75806b6ef54ec6097..c21d67010fb569c60e421ea603cadec3421d83ae 100644 (file)
--- 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