git.iko.soy/streamly
on master help sign in
Disable some broken benchmarks
commit294aa21417a149a3f0ee3ac66fa38b60634e743c authorHarendra Kumar <harendra@composewell.com> dateSun 7 Jun 2020, 18:34 (6 years ago) parent75903a1
2 files changed+9−5
compare with master
unifiedsplit
benchmark/Streamly/Benchmark/Prelude/Serial.hs+5−4 benchmark/Streamly/Benchmark/Prelude/ZipSerial.hs+4−1
benchmark/Streamly/Benchmark/Prelude/Serial.hs+5−4
@@ -249,9 +249,9 @@ foldableSequence_ :: Int -> Int -> IO ()
249249foldableSequence_ value n =
250250 F.sequence_ (sourceUnfoldrAction value n :: S.SerialT Identity (IO Int))
251251
252−{-# INLINE foldableMsum #-}
253−foldableMsum :: Int -> Int -> IO Int
254−foldableMsum value n =
252+{-# INLINE _foldableMsum #-}
253+_foldableMsum :: Int -> Int -> IO Int
254+_foldableMsum value n =
255255 F.msum (sourceUnfoldrAction value n :: S.SerialT Identity (IO Int))
256256
257257{-# INLINE showInstance #-}
@@ -288,7 +288,8 @@ o_1_space_elimination_foldable value =
288288 , benchIOSink1 "sequence_" (foldableSequence_ value)
289289 -- TBD: sequenceA_
290290 -- TBD: asum
291− , benchIOSink1 "msum" (foldableMsum value)
291+ -- XXX needs to be fixed, results are in ns
292+ -- , benchIOSink1 "msum" (foldableMsum value)
292293 ]
293294 ]
294295
benchmark/Streamly/Benchmark/Prelude/ZipSerial.hs+4−1
@@ -93,6 +93,7 @@ o_1_space_mapping value =
9393-- Monad outer product
9494-------------------------------------------------------------------------------
9595
96+{-
9697o_1_space_outerProduct :: Int -> [Benchmark]
9798o_1_space_outerProduct value =
9899 [ bgroup "monad-outer-product"
@@ -100,6 +101,7 @@ o_1_space_outerProduct value =
100101 [ benchIO "toNullAp" $ toNullAp value zipSerially
101102 ]
102103 ]
104+-}
103105
104106-------------------------------------------------------------------------------
105107-- Main
@@ -119,7 +121,8 @@ main = do
119121 [ bgroup (o_1_space_prefix moduleName) $ concat
120122 [ o_1_space_joining size
121123 , o_1_space_mapping size
122− , o_1_space_outerProduct size
124+ -- XXX need to fix, timing in ns
125+ -- , o_1_space_outerProduct size
123126 ]
124127 ]
125128