slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cln: hlint: Remove guards warning.

Browse Source
This commit is contained in:
Stephen Morgan 2021-08-16 16:33:44 +10:00 committed by Simon Michael
parent 5906959882
commit 119e20aa36
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.hlint.yaml
View File

@ -40,7 +40,6 @@
- ignore: {name: "Use fewer imports"} - ignore: {name: "Use fewer imports"}
- ignore: {name: "Use mapMaybe"} - ignore: {name: "Use mapMaybe"}
- ignore: {name: "Use intercalate"} - ignore: {name: "Use intercalate"}
- ignore: {name: "Use guards"}
- ignore: {name: "Use tuple-section"} - ignore: {name: "Use tuple-section"}
- ignore: {name: "Use section"} - ignore: {name: "Use section"}
- ignore: {name: "Use maybe"} - ignore: {name: "Use maybe"}

6
hledger/Hledger/Cli/Commands/Balance.hs
View File

@ -499,8 +499,10 @@ renderComponent topaligned oneline opts (acctname, depth, total) (FormatField lj
TotalField -> Cell align . pure $ showMixedAmountB dopts total TotalField -> Cell align . pure $ showMixedAmountB dopts total
_ -> Cell align [mempty] _ -> Cell align [mempty]
where where
align = if topaligned then (if ljust then TopLeft else TopRight) align | topaligned && ljust = TopLeft
else (if ljust then BottomLeft else BottomRight) | topaligned = TopRight
| ljust = BottomLeft
| otherwise = BottomRight
dopts = (balanceOpts True opts){displayOneLine=oneline, displayMinWidth=mmin, displayMaxWidth=mmax} dopts = (balanceOpts True opts){displayOneLine=oneline, displayMinWidth=mmin, displayMaxWidth=mmax}
-- rendering multi-column balance reports -- rendering multi-column balance reports