summaryrefslogtreecommitdiff
path: root/Logs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2015-10-06 17:28:20 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2015-10-06 17:28:20 -0400
commit9e2cea9f7a3fdea641371cd59f313a4cc6dc1630 (patch)
tree84d80cf86d087e67f14d6bf97965c07fc0dc3567 /Logs
parent0dad31a69828cddbd5f402e6b18b1d70e8711a86 (diff)
oops, didn't mean to commit this debug
Diffstat (limited to 'Logs')
-rw-r--r--Logs/PreferredContent.hs9
1 files changed, 2 insertions, 7 deletions
diff --git a/Logs/PreferredContent.hs b/Logs/PreferredContent.hs
index 1e631f86e..c21d67010 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