oops, fixed wrong change

This commit is contained in:
Joey Hess 2019-05-23 12:44:27 -04:00
parent d5582865b6
commit b646a85c4a
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

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