diff --git a/src/UToy/Table.hs b/src/UToy/Table.hs index 2527432..ace3012 100644 --- a/src/UToy/Table.hs +++ b/src/UToy/Table.hs @@ -17,7 +17,7 @@ cr :: Text -> Cell cr = C AlignRight render :: Text -> [[Cell]] -> Text -render delim cells = Text.intercalate "\n" $ map showRow cells +render delim cells = Text.unlines $ map showRow cells where showRow = Text.intercalate delim . map showCell . zipLongest columnWidths