a few hlints
This commit is contained in:
parent
32aa42de7d
commit
2b79e6fe08
14 changed files with 20 additions and 21 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue