60ac573 · typeable/aeson

git.iko.soy/typeable/aeson

Dump out rate information for benchmarking.

commit60ac57310677b449370b50f485d75ac6fd63ff3a authorBryan O'Sullivan <bos@mailrank.com> dateMon 21 Mar 2011, 23:03 (16 years ago) parent243f86d

2 files changed+8−4

unifiedsplit

benchmarks/AesonEncode.hs+4−2

@@ -38,5 +38,7 @@ main = do

3838 Done _ r -> rnf (encode r) `seq` loop (n+1) r

3939 _ -> error $ "failed to read " ++ show arg

4040 loop 0 r

41− end <- getCurrentTime

42− putStrLn $ " " ++ show (diffUTCTime end start)

41+ delta <- flip diffUTCTime start `fmap` getCurrentTime

42+ let rate = fromIntegral count / (fromRational . toRational) delta :: Double

43+ putStrLn $ " " ++ show delta

44+ putStrLn $ " " ++ show (round rate) ++ " per second"

benchmarks/AesonParse.hs+4−2

@@ -27,5 +27,7 @@ main = do

2727 Done _ r -> loop (good+1) bad

2828 _ -> loop good (bad+1)

2929 (good, _) <- loop 0 0

30− end <- getCurrentTime

31− putStrLn $ " " ++ show good ++ " good, " ++ show (diffUTCTime end start)

30+ delta <- flip diffUTCTime start `fmap` getCurrentTime

31+ putStrLn $ " " ++ show good ++ " good, " ++ show delta

32+ let rate = fromIntegral count / (fromRational . toRational) delta :: Double

33+ putStrLn $ " " ++ show (round rate) ++ " per second"