diff --git a/.hlint.yaml b/.hlint.yaml index 3a16704c4..f1eba2735 100644 --- a/.hlint.yaml +++ b/.hlint.yaml @@ -63,7 +63,6 @@ - ignore: {name: "Redundant flip"} - ignore: {name: "Use replicate"} - ignore: {name: "Use void"} -- ignore: {name: "Use if"} - ignore: {name: "Use bimap"} - ignore: {name: "Use newtype instead of data"} - ignore: {name: "Use elemIndex"} diff --git a/hledger-lib/Hledger/Utils/Text.hs b/hledger-lib/Hledger/Utils/Text.hs index c2e0d429b..b92c5ac46 100644 --- a/hledger-lib/Hledger/Utils/Text.hs +++ b/hledger-lib/Hledger/Utils/Text.hs @@ -206,9 +206,9 @@ fitText mminwidth mmaxwidth ellipsify rightside = clip . pad case mmaxwidth of Just w | textWidth s > w -> - case rightside of - True -> textTakeWidth (w - T.length ellipsis) s <> ellipsis - False -> ellipsis <> T.reverse (textTakeWidth (w - T.length ellipsis) $ T.reverse s) + if rightside + then textTakeWidth (w - T.length ellipsis) s <> ellipsis + else ellipsis <> T.reverse (textTakeWidth (w - T.length ellipsis) $ T.reverse s) | otherwise -> s where ellipsis = if ellipsify then ".." else "" @@ -218,9 +218,9 @@ fitText mminwidth mmaxwidth ellipsify rightside = clip . pad case mminwidth of Just w | sw < w -> - case rightside of - True -> s <> T.replicate (w - sw) " " - False -> T.replicate (w - sw) " " <> s + if rightside + then s <> T.replicate (w - sw) " " + else T.replicate (w - sw) " " <> s | otherwise -> s Nothing -> s where sw = textWidth s