From 6fbabfcf1627472d489eaab633f39db892cf5cc4 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 6 Oct 2015 17:28:20 -0400 Subject: [PATCH] oops, didn't mean to commit this debug --- Logs/PreferredContent.hs | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) 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