From c1af44f2ec6ee55b2a1a3db9fcac9d65cb6320a0 Mon Sep 17 00:00:00 2001
From: Johan Tibell <johan.tibell@gmail.com>
Date: Mon, 25 Feb 2013 14:17:02 -0800
Subject: [PATCH] Reorganize benchmarks a bit

---
 benchmarks/Benchmarks.hs | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/benchmarks/Benchmarks.hs b/benchmarks/Benchmarks.hs
index a687832..07331dc 100644
--- a/benchmarks/Benchmarks.hs
+++ b/benchmarks/Benchmarks.hs
@@ -30,6 +30,9 @@ data President = President
                  , homeState      :: !Text
                  }
 
+instance NFData President where
+    rnf (President {}) = ()
+
 instance FromRecord President where
     parseRecord v
         | V.length v == 7 = President <$>
@@ -103,6 +106,10 @@ main = do
           [ bgroup "decode"
             [ bench "presidents/without conversion" $ whnf idDecode csvData
             , bench "presidents/with conversion" $ whnf decodePresidents csvData
+            , bgroup "streaming"
+              [ bench "presidents/without conversion" $ nf idDecodeS csvData
+              , bench "presidents/with conversion" $ nf decodePresidentsS csvData
+              ]
             ]
           , bgroup "encode"
             [ bench "presidents/with conversion" $ whnf encode presidents
@@ -118,9 +125,7 @@ main = do
             ]
           ]
         , bgroup "comparison"
-          [ bench "cassava" $ nf idDecode csvData
-          , bench "cassava/streaming" $ nf idDecodeS csvData
-          , bench "lazy-csv" $ nf LazyCsv.parseCSV csvData
+          [ bench "lazy-csv" $ nf LazyCsv.parseCSV csvData
           ]
         ]
   where
@@ -130,6 +135,9 @@ main = do
     decodePresidentsN :: BL.ByteString -> Either String (Header, Vector President)
     decodePresidentsN = decodeByName
 
+    decodePresidentsS :: BL.ByteString -> Streaming.Records President
+    decodePresidentsS = Streaming.decode False
+
     idDecode :: BL.ByteString -> Either String (Vector (Vector B.ByteString))
     idDecode = decode False