analysis

1 files changed, 7 insertions, 2 deletions

diff --git a/Logs/PreferredContent.hs b/Logs/PreferredContent.hs
index c21d67010..1e631f86e 100644
--- a/Logs/PreferredContent.hs
+++ b/Logs/PreferredContent.hs
@@ -57,8 +57,13 @@ checkMap getmap mu notpresent mkey afile d = do
 	u <- maybe getUUID return mu
 	m <- getmap
 	case M.lookup u m of
-		Nothing -> return d
-		Just matcher -> checkMatcher matcher mkey afile notpresent d
+		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
 
 preferredContentMap :: Annex (FileMatcherMap Annex)
 preferredContentMap = maybe (fst <$> preferredRequiredMapsLoad) return