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

analysis

Browse source
This commit is contained in:
Joey Hess 2015-10-06 17:11:52 -04:00
parent 8f555ceb16
commit ba7ecf68c0
2 changed files with 19 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Logs/PreferredContent.hs
View file

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