on master help sign in
Add fusion check for some benchmarks
7b52d91Harendra Kumar
benchmark/Streamly/Benchmark/Data/Parser.hs+13−2
@@ -574,8 +574,19 @@ main = do
574 , bgroup (o_n_heap_prefix moduleName) (o_n_heap_serial value)
574 , bgroup (o_n_heap_prefix moduleName) (o_n_heap_serial value)
575 ]
575 ]
576#else
576#else
577+ -- Enable FUSION_CHECK macro at the beginning of the file
578+ -- Enable one benchmark below, and run the benchmark
579+ -- Check the .dump-simpl output
577 let value = 100000
580 let value = 100000
578− let input = sourceUnfoldrM value 1
581+ -- let input = sourceUnfoldrM value 1
579− manyTill value input
582+ -- manyTill value input
583+ -- deintercalate value input
584+ -- deintercalate1 value input
585+ -- deintercalateAll value input
586+ -- sepByWords input
587+ -- sepByAllWords input
588+ -- sepBy1 input
589+ -- sepByWords1 input
590+ takeFramedByEsc_ value (sourceEscapedFrames value 1)
580 return ()
591 return ()
581#endif
592#endif