@@ -1,9 +1,9 @@
1module Main where
1module Main where
3−import BuildLib (Quickness(..))
4import BenchRunner (mainWith)
3import BenchRunner (mainWith)
5−import Data.Map (Map)
4+import BuildLib (Quickness(..))
6import Data.List (isInfixOf, isPrefixOf, isSuffixOf)
5import Data.List (isInfixOf, isPrefixOf, isSuffixOf)
8import qualified Data.Map as Map
8import qualified Data.Map as Map
@@ -15,8 +15,8 @@ groupTargets =
15 , "Data.Stream.StreamK"
15 , "Data.Stream.StreamK"
16 , "Data.Stream.StreamDK"
16 , "Data.Stream.StreamDK"
18− , ("prelude_serial_grp", preudeSerialGrp)
18+ , ("prelude_serial_grp", preludeSerialGrp)
19− , ("prelude_concurrent_grp", preudeConcurrentGrp)
19+ , ("prelude_concurrent_grp", preludeConcurrentGrp)
20 , ( "prelude_other_grp"
20 , ( "prelude_other_grp"
21 , ["Prelude.Rate", "Prelude.Concurrent", "Prelude.Adaptive"])
21 , ["Prelude.Rate", "Prelude.Concurrent", "Prelude.Adaptive"])
22 , ( "array_grp"
22 , ( "array_grp"
@@ -30,13 +30,13 @@ groupTargets =
30 , ("parser_grp", ["Data.Fold", "Data.Parser"])
30 , ("parser_grp", ["Data.Fold", "Data.Parser"])
31 , ("list_grp ", [])
31 , ("list_grp ", [])
32 , ( "infinite_grp"
32 , ( "infinite_grp"
33− , preudeSerialGrp ++ preudeConcurrentGrp ++ ["Prelude.Rate"])
33+ , preludeSerialGrp ++ preludeConcurrentGrp ++ ["Prelude.Rate"])
38− preudeSerialGrp = ["Prelude.Serial", "Prelude.WSerial", "Prelude.ZipSerial"]
38+ preludeSerialGrp = ["Prelude.Serial", "Prelude.WSerial", "Prelude.ZipSerial"]
39− preudeConcurrentGrp =
39+ preludeConcurrentGrp =
40 [ "Prelude.Async"
40 [ "Prelude.Async"
41 , "Prelude.WAsync"
41 , "Prelude.WAsync"
42 , "Prelude.Ahead"
42 , "Prelude.Ahead"
@@ -44,8 +44,8 @@ groupTargets =
44 , "Prelude.ZipAsync"
44 , "Prelude.ZipAsync"
47−individualTargers :: [String]
47+individualTargets :: [String]
48−individualTargers =
48+individualTargets =
49 [ "Data.Unfold"
49 [ "Data.Unfold"
50 , "Unicode.Stream"
50 , "Unicode.Stream"
51 , "Unicode.Char"
51 , "Unicode.Char"
@@ -53,8 +53,8 @@ individualTargers =
53 , "FileSystem.Handle"
53 , "FileSystem.Handle"
56−comparisions :: Map String [String]
56+comparisons :: Map String [String]
57−comparisions =
57+comparisons =
58 Map.fromList
58 Map.fromList
59 [ ("base_stream_cmp", ["Data.Stream.StreamD", "Data.Stream.StreamK"])
59 [ ("base_stream_cmp", ["Data.Stream.StreamD", "Data.Stream.StreamK"])
60 , ("serial_wserial_cmp", ["Prelude.Serial", "Prelude.WSerial"])
60 , ("serial_wserial_cmp", ["Prelude.Serial", "Prelude.WSerial"])
@@ -195,4 +195,4 @@ speedOpts exeName benchName0 = maybe benchSpecific Just exeSpecific
195 | otherwise = Nothing
195 | otherwise = Nothing
197main :: IO ()
197main :: IO ()
198−main = mainWith groupTargets individualTargers comparisions speedOpts rtsOpts
198+main = mainWith groupTargets individualTargets comparisons speedOpts rtsOpts