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

cln: hlint: Remove if warnings.

Browse Source
This commit is contained in:
Stephen Morgan 2021-08-16 15:41:14 +10:00 committed by Simon Michael
parent d2beb89eba
commit 1e69fd81ea
2 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.hlint.yaml
View File

@ -63,7 +63,6 @@
- ignore: {name: "Redundant flip"} - ignore: {name: "Redundant flip"}
- ignore: {name: "Use replicate"} - ignore: {name: "Use replicate"}
- ignore: {name: "Use void"} - ignore: {name: "Use void"}
- ignore: {name: "Use if"}
- ignore: {name: "Use bimap"} - ignore: {name: "Use bimap"}
- ignore: {name: "Use newtype instead of data"} - ignore: {name: "Use newtype instead of data"}
- ignore: {name: "Use elemIndex"} - ignore: {name: "Use elemIndex"}

12
hledger-lib/Hledger/Utils/Text.hs
View File

@ -206,9 +206,9 @@ fitText mminwidth mmaxwidth ellipsify rightside = clip . pad
case mmaxwidth of case mmaxwidth of
Just w Just w
| textWidth s > w -> | textWidth s > w ->
case rightside of if rightside
True -> textTakeWidth (w - T.length ellipsis) s <> ellipsis then textTakeWidth (w - T.length ellipsis) s <> ellipsis
False -> ellipsis <> T.reverse (textTakeWidth (w - T.length ellipsis) $ T.reverse s) else ellipsis <> T.reverse (textTakeWidth (w - T.length ellipsis) $ T.reverse s)
| otherwise -> s | otherwise -> s
where where
ellipsis = if ellipsify then ".." else "" ellipsis = if ellipsify then ".." else ""
@ -218,9 +218,9 @@ fitText mminwidth mmaxwidth ellipsify rightside = clip . pad
case mminwidth of case mminwidth of
Just w Just w
| sw < w -> | sw < w ->
case rightside of if rightside
True -> s <> T.replicate (w - sw) " " then s <> T.replicate (w - sw) " "
False -> T.replicate (w - sw) " " <> s else T.replicate (w - sw) " " <> s
| otherwise -> s | otherwise -> s
Nothing -> s Nothing -> s
where sw = textWidth s where sw = textWidth s