From 441f46fc0678f48170d6499a24b35d5c2a87f7a3 Mon Sep 17 00:00:00 2001 From: Henning Thielemann Date: Wed, 18 Sep 2024 23:45:15 +0200 Subject: [PATCH] lib: Tabular.AsciiWide.renderRs: simplify using flattenHeader --- hledger-lib/Text/Tabular/AsciiWide.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/hledger-lib/Text/Tabular/AsciiWide.hs b/hledger-lib/Text/Tabular/AsciiWide.hs index c9fb7a28f..4d2fa894d 100644 --- a/hledger-lib/Text/Tabular/AsciiWide.hs +++ b/hledger-lib/Text/Tabular/AsciiWide.hs @@ -27,7 +27,7 @@ module Text.Tabular.AsciiWide import Data.Bifunctor (bimap) import Data.Maybe (fromMaybe) import Data.Default (Default(..)) -import Data.List (intercalate, intersperse, transpose) +import Data.List (intersperse, transpose) import Data.Semigroup (stimesMonoid) import Data.Text (Text) import qualified Data.Text as T @@ -130,9 +130,9 @@ renderTableByRowsB topts@TableOpts{prettyTable=pretty, tableBorders=borders} fc -- maximum width for each column sizes = map (fromMaybe 0 . maximumMay . map cellWidth) $ transpose cells2 - renderRs (Header s) = [s] - renderRs (Group p hs) = intercalate sep $ map renderRs hs - where sep = renderHLine VM borders pretty sizes ch2 p + renderRs = + concatMap (either (renderHLine VM borders pretty sizes ch2) (:[])) . + flattenHeader -- borders and bars addBorders xs = if borders then bar VT SingleLine : xs ++ [bar VB SingleLine] else xs