Permalink
Browse files

Add a 3-param show benchmark

  • Loading branch information...
1 parent 7f7d373 commit 883d332a4c8b42b2f8935fce681eeaf5fbbb35e8 @bos committed Jul 7, 2011
Showing with 1 addition and 0 deletions.
  1. +1 −0 benchmarks/Benchmarks.hs
View
@@ -36,6 +36,7 @@ main = defaultMain [
, bench "show2" $ nf (\(d,s) -> "hi mom " ++ show d ++ " " ++ show s ++ "\n") (pi::Double, "yeah"::String)
, bench "format3" $ nf (format "hi mom {} {} {}\n") (pi::Double, "yeah"::T.Text, 21212121::Int)
, bench "printf3" $ nf (printf3 "hi mom %f %s %d\n") (pi::Double, "yeah"::String, 21212121::Int)
+ , bench "show3" $ nf (\(d,s,i) -> "hi mom " ++ show d ++ " " ++ show s ++ "\n") (pi::Double, "yeah"::String, 21212121::Int)
]
, bgroup "types" [
bench "unit" $ nf (format "hi") ()

0 comments on commit 883d332

Please sign in to comment.