Commit 57eb9fe5 authored by Andreas Klebinger's avatar Andreas Klebinger

Move nofib-compare code into compare folder

parent 9eb6bc5d
......@@ -71,7 +71,7 @@ renderGitLabMarkdown renderRow renderCol renderCell (Table rows cols cells) =
headerSep = joinCols $ map (const " -------- ") header
emphasize x = "*"++x++"*"
cells' = zipWith (\rh row -> joinCols
$ prepend (emphasize $ renderRow rh)
$ prepend (emphasize $ renderRow rh)
$ map renderCell row
) (headerContents rows) cells
......@@ -143,7 +143,7 @@ withColor opts c s
where
start = ANSI.setSGRCode [ANSI.SetColor ANSI.Foreground ANSI.Vivid c]
end = ANSI.setSGRCode [ANSI.Reset]
showGFloat' :: RealFloat a => OutputOptions -> Maybe Int -> a -> ShowS
showGFloat' opts prec x = prettySign opts x . showGFloat prec (abs x)
......@@ -223,7 +223,7 @@ main = do
relChg = toRelativeChange ref (fmap (fmap msMean) xs)
cols :: [SemiTable Column Cell]
cols =
cols =
[ absoluteCol xs ref, stderrCol xs ref ] ++
concat
[ [ relativeCol xs ref metricFile
......@@ -336,7 +336,7 @@ relativeCol :: M.Map lbl (M.Map MetricFile (MeanStddev Double))
-> MetricFile -- ^ reference
-> MetricFile
-> SemiTable Column Cell
relativeCol mtrees refFile metricFile =
relativeCol mtrees refFile metricFile =
col (RelativeCol metricFile)
[ fromMaybe CellMissing $ do
baseline <- msMean <$> M.lookup refFile xs
......
......@@ -58,6 +58,7 @@ executable nofib-run
executable nofib-compare
main-is: Compare.hs
hs-source-dirs: compare
ghc-options: -Wall
other-modules: LabelMatch
other-extensions: RecordWildCards, DeriveDataTypeable
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment