git.iko.soy/streamly
on master help sign in
Disable some broken benchmarks
294aa21Harendra Kumar
benchmark/Streamly/Benchmark/Prelude/Serial.hs+5−4
compare with master
unifiedsplit
@@ -249,9 +249,9 @@ foldableSequence_ :: Int -> Int -> IO ()
249foldableSequence_ value n =
249foldableSequence_ value n =
250 F.sequence_ (sourceUnfoldrAction value n :: S.SerialT Identity (IO Int))
250 F.sequence_ (sourceUnfoldrAction value n :: S.SerialT Identity (IO Int))
251
251
252−{-# INLINE foldableMsum #-}
252+{-# INLINE _foldableMsum #-}
253−foldableMsum :: Int -> Int -> IO Int
253+_foldableMsum :: Int -> Int -> IO Int
254−foldableMsum value n =
254+_foldableMsum value n =
255 F.msum (sourceUnfoldrAction value n :: S.SerialT Identity (IO Int))
255 F.msum (sourceUnfoldrAction value n :: S.SerialT Identity (IO Int))
256
256
257{-# INLINE showInstance #-}
257{-# INLINE showInstance #-}
@@ -288,7 +288,8 @@ o_1_space_elimination_foldable value =
288 , benchIOSink1 "sequence_" (foldableSequence_ value)
288 , benchIOSink1 "sequence_" (foldableSequence_ value)
289 -- TBD: sequenceA_
289 -- TBD: sequenceA_
290 -- TBD: asum
290 -- TBD: asum
291+ -- XXX needs to be fixed, results are in ns
291− , benchIOSink1 "msum" (foldableMsum value)
292+ -- , benchIOSink1 "msum" (foldableMsum value)
292 ]
293 ]
293 ]
294 ]
294
295
benchmark/Streamly/Benchmark/Prelude/ZipSerial.hs+4−1
@@ -93,6 +93,7 @@ o_1_space_mapping value =
93-- Monad outer product
93-- Monad outer product
94-------------------------------------------------------------------------------
94-------------------------------------------------------------------------------
95
95
96+{-
96o_1_space_outerProduct :: Int -> [Benchmark]
97o_1_space_outerProduct :: Int -> [Benchmark]
97o_1_space_outerProduct value =
98o_1_space_outerProduct value =
98 [ bgroup "monad-outer-product"
99 [ bgroup "monad-outer-product"
@@ -100,6 +101,7 @@ o_1_space_outerProduct value =
100 [ benchIO "toNullAp" $ toNullAp value zipSerially
101 [ benchIO "toNullAp" $ toNullAp value zipSerially
101 ]
102 ]
102 ]
103 ]
104+-}
103
105
104-------------------------------------------------------------------------------
106-------------------------------------------------------------------------------
105-- Main
107-- Main
@@ -119,7 +121,8 @@ main = do
119 [ bgroup (o_1_space_prefix moduleName) $ concat
121 [ bgroup (o_1_space_prefix moduleName) $ concat
120 [ o_1_space_joining size
122 [ o_1_space_joining size
121 , o_1_space_mapping size
123 , o_1_space_mapping size
124+ -- XXX need to fix, timing in ns
122− , o_1_space_outerProduct size
125+ -- , o_1_space_outerProduct size
123 ]
126 ]
124 ]
127 ]
125
128