a few hlints

This commit is contained in:
Joey Hess 2015-04-11 00:10:34 -04:00
parent 32aa42de7d
commit 2b79e6fe08
14 changed files with 20 additions and 21 deletions

View file

@ -62,8 +62,8 @@ readDifferences :: String -> Differences
readDifferences = maybe UnknownDifferences Differences . readish
getDifferences :: Git.Repo -> Differences
getDifferences r = Differences $ S.fromList $ catMaybes $
map getmaybe [minBound .. maxBound]
getDifferences r = Differences $ S.fromList $
mapMaybe getmaybe [minBound .. maxBound]
where
getmaybe d = case Git.Config.isTrue =<< Git.Config.getMaybe (differenceConfigKey d) r of
Just True -> Just d