@@ -45,6 +45,7 @@ data BenchType
4545 | FoldOnHeap
4646 | UnfoldO1Space
4747 | UnfoldOnSpace
48+ | Standard String
4849 deriving Show
4950
5051data Options = Options
@@ -100,9 +101,7 @@ parseBench = do
100101 Just "fold-o-n-heap" -> setBenchType FoldOnHeap
101102 Just "unfold-o-1-space" -> setBenchType UnfoldO1Space
102103 Just "unfold-o-n-space" -> setBenchType UnfoldOnSpace
103− Just str -> do
104− liftIO $ putStrLn $ "unrecognized benchmark type " <> str
105− mzero
104+ Just str -> setBenchType (Standard str)
106105 Nothing -> do
107106 liftIO $ putStrLn "please provide a benchmark type "
108107 mzero
@@ -458,3 +457,8 @@ main = do
458457 (makeGraphs "unfold-o-n-space")
459458 "charts/unfold-o-n-space/results.csv"
460459 "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)