diff options
author | Joey Hess <joeyh@joeyh.name> | 2015-10-06 17:28:20 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2015-10-06 17:28:20 -0400 |
commit | 9e2cea9f7a3fdea641371cd59f313a4cc6dc1630 (patch) | |
tree | 84d80cf86d087e67f14d6bf97965c07fc0dc3567 | |
parent | 0dad31a69828cddbd5f402e6b18b1d70e8711a86 (diff) |
oops, didn't mean to commit this debug
-rw-r--r-- | Logs/PreferredContent.hs | 9 |
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 |