git.iko.soy/streamly
on master help sign in
Add a standard behaviour to Chart.hs
0d66526adithyaov
benchmark/Chart.hs+7−3
compare with master
unifiedsplit
@@ -45,6 +45,7 @@ data BenchType
45 | FoldOnHeap
45 | FoldOnHeap
46 | UnfoldO1Space
46 | UnfoldO1Space
47 | UnfoldOnSpace
47 | UnfoldOnSpace
48+ | Standard String
48 deriving Show
49 deriving Show
49
50
50data Options = Options
51data Options = Options
@@ -100,9 +101,7 @@ parseBench = do
100 Just "fold-o-n-heap" -> setBenchType FoldOnHeap
101 Just "fold-o-n-heap" -> setBenchType FoldOnHeap
101 Just "unfold-o-1-space" -> setBenchType UnfoldO1Space
102 Just "unfold-o-1-space" -> setBenchType UnfoldO1Space
102 Just "unfold-o-n-space" -> setBenchType UnfoldOnSpace
103 Just "unfold-o-n-space" -> setBenchType UnfoldOnSpace
103− Just str -> do
104+ Just str -> setBenchType (Standard str)
104− liftIO $ putStrLn $ "unrecognized benchmark type " <> str
105− mzero
106 Nothing -> do
105 Nothing -> do
107 liftIO $ putStrLn "please provide a benchmark type "
106 liftIO $ putStrLn "please provide a benchmark type "
108 mzero
107 mzero
@@ -458,3 +457,8 @@ main = do
458 (makeGraphs "unfold-o-n-space")
457 (makeGraphs "unfold-o-n-space")
459 "charts/unfold-o-n-space/results.csv"
458 "charts/unfold-o-n-space/results.csv"
460 "charts/unfold-o-n-space"
459 "charts/unfold-o-n-space"
460+ Standard str -> benchShow opts cfg
461+ { title = Just str }
462+ (makeGraphs str)
463+ ("charts/" ++ str ++ "/results.csv")
464+ ("charts/" ++ str)