From 0dad31a69828cddbd5f402e6b18b1d70e8711a86 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 6 Oct 2015 17:11:52 -0400 Subject: analysis --- Logs/PreferredContent.hs | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'Logs') 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 -- cgit v1.2.3