Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Add a 3-param show benchmark

  • Loading branch information...
commit 883d332a4c8b42b2f8935fce681eeaf5fbbb35e8 1 parent 7f7d373
@bos authored
Showing with 1 addition and 0 deletions.
  1. +1 −0  benchmarks/Benchmarks.hs
View
1  benchmarks/Benchmarks.hs
@@ -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") ()
Please sign in to comment.
Something went wrong with that request. Please try again.