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 u <- maybe getUUID return mu
m <- getmap m <- getmap
case M.lookup u m of case M.lookup u m of
Nothing -> do Nothing -> return d
liftIO $ print ("default for", u, d) Just matcher -> checkMatcher matcher mkey afile notpresent 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 :: Annex (FileMatcherMap Annex)
preferredContentMap = maybe (fst <$> preferredRequiredMapsLoad) return preferredContentMap = maybe (fst <$> preferredRequiredMapsLoad) return