mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

oops, didn't mean to commit this debug

Browse source
This commit is contained in:
Joey Hess 2015-10-06 17:28:20 -04:00
parent ba7ecf68c0
commit 6fbabfcf16
1 changed files with 2 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Logs/PreferredContent.hs
View file

@ -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