@@ -731,14 +731,13 @@ o_1_space =
731731 where
732732 value = 100000
733733
734−o_n_heap :: [Benchmark]
734+o_n_heap :: Benchmark
735735o_n_heap =
736− [ bgroup (o_n_heap_prefix moduleName)
736+ bgroup (o_n_heap_prefix moduleName)
737737 [ bgroup "transformation"
738738 [ benchFold "foldlS" (foldlS 1) (sourceUnfoldrM value)
739739 ]
740740 ]
741− ]
742741 where
743742
744743 value = 100000
@@ -747,9 +746,9 @@ o_n_heap =
747746benchK :: P.String -> (Int -> Stream P.IO Int) -> Benchmark
748747benchK name f = bench name $ nfIO $ randomRIO (1,1) >>= toNull . f
749748
750−o_n_stack :: [Benchmark]
749+o_n_stack :: Benchmark
751750o_n_stack =
752− [ bgroup (o_n_stack_prefix moduleName)
751+ bgroup (o_n_stack_prefix moduleName)
753752 [ bgroup "elimination"
754753 [ benchFold "tail" tail (sourceUnfoldrM value)
755754 , benchFold "nullTail" nullTail (sourceUnfoldrM value)
@@ -775,7 +774,6 @@ o_n_stack =
775774 , benchK "dropWhileTrue" (iterateDropWhileTrue maxValue iterStreamLen maxIters)
776775 ]
777776 ]
778− ]
779777 where
780778
781779 value = 100000
@@ -785,14 +783,13 @@ o_n_stack =
785783 maxIters = 10000
786784 iterStreamLen = 10
787785
788−o_n_space :: [Benchmark]
786+o_n_space :: Benchmark
789787o_n_space =
790− [ bgroup (o_n_space_prefix moduleName)
788+ bgroup (o_n_space_prefix moduleName)
791789 [ bgroup "elimination"
792790 [ benchFold "toList" toList (sourceUnfoldrM value)
793791 ]
794792 ]
795− ]
796793 where
797794
798795 value = 100000
@@ -803,9 +800,4 @@ benchList :: P.String -> ([Int] -> [Int]) -> (Int -> [Int]) -> Benchmark
803800benchList name run f = bench name $ nfIO $ randomRIO (1,1) >>= return . run . f
804801
805802main :: IO ()
806−main = defaultMain $ concat
807− [ [ o_1_space ]
808− , o_n_stack
809− , o_n_heap
810− , o_n_space
811− ]
803+main = defaultMain [o_1_space, o_n_stack, o_n_heap, o_n_space]