From dd3492333f87afe271bdfa65082fc557fa3626ba Mon Sep 17 00:00:00 2001
From: Sebastian Graf <sebastian.graf@kit.edu>
Date: Wed, 2 Jun 2021 19:14:12 +0200
Subject: [PATCH] nofib-compare: Fix header of Markdown output
---
shake/compare/Compare.hs | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/shake/compare/Compare.hs b/shake/compare/Compare.hs
index f71e178f..e91e3d0b 100644
--- a/shake/compare/Compare.hs
+++ b/shake/compare/Compare.hs
@@ -63,12 +63,12 @@ args =
renderGitLabMarkdown :: (rh -> String) -> (ch -> String) -> (a -> String) -> Table rh ch a -> String
renderGitLabMarkdown renderRow renderCol renderCell (Table rows cols cells) =
- unlines $ [header, headerSep] ++ cells'
+ unlines $ [joinCols header, joinCols headerSep] ++ cells'
where
prepend x = (x :)
joinCols xs = "| " ++ intercalate " | " xs ++ " |"
- header = joinCols $ prepend "" $ map renderRow (headerContents rows)
- headerSep = joinCols $ map (const " -------- ") header
+ header = prepend "" $ map renderCol (headerContents cols)
+ headerSep = map (const " -------- ") header
emphasize x = "*"++x++"*"
cells' = zipWith (\rh row -> joinCols
$ prepend (emphasize $ renderRow rh)
--
GitLab