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

avoid build failure with older base

Browse source
This commit is contained in:
Joey Hess 2019-05-23 12:16:57 -04:00
parent 16a2bed710
commit e1aa8b9001
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Logs/PreferredContent.hs
View file

@ -82,7 +82,7 @@ preferredRequiredMapsLoad mktokens = do
return (pc', rc') return (pc', rc')
where where
handleunknown = M.mapWithKey $ \u -> handleunknown = M.mapWithKey $ \u ->
fromRight (unknownMatcher u) either (unknownMatcher u) id
preferredRequiredMapsLoad' :: (PreferredContentData -> [ParseToken (MatchFiles Annex)]) -> Annex (M.Map UUID (Either String (FileMatcher Annex)), M.Map UUID (Either String (FileMatcher Annex))) preferredRequiredMapsLoad' :: (PreferredContentData -> [ParseToken (MatchFiles Annex)]) -> Annex (M.Map UUID (Either String (FileMatcher Annex)), M.Map UUID (Either String (FileMatcher Annex)))
preferredRequiredMapsLoad' mktokens = do preferredRequiredMapsLoad' mktokens = do