Permalink
Browse files

reran the base64 encoding benchmark

  • Loading branch information...
1 parent f507b6f commit 5745a28954e3a44ed8ba819301497fe0f48fa43b @meiersi committed Mar 4, 2011
Showing with 2 additions and 2 deletions.
  1. +2 −2 benchmarks/LazyByteString.hs
@@ -42,12 +42,14 @@ import Blaze.ByteString.Builder.ByteString
main :: IO ()
main = do
let (chunkInfos, benchmarks) = unzip
+ {-
[ lazyVsBlaze
( "partitionLazy"
, (uncurry mappend) . L.partition ((0 <) . sin . fromIntegral)
, (uncurry mappend) . partitionLazy ((0 <) . sin . fromIntegral)
, (\i -> L.drop 13 $ L.pack $ take i $ cycle [0..])
, n)
+ -}
{-
[ lazyVsBlaze
( "base64mime"
@@ -64,14 +66,12 @@ main = do
, (\i -> S.drop 13 $ S.pack $ take i $ cycle [0..])
, n)
-}
- {-
[ lazyVsBlaze
( "base64"
, L.fromChunks . return . encode
, toLazyByteString . encodeBase64
, (\i -> S.drop 13 $ S.pack $ take i $ cycle [0..])
, n)
- -}
{-
, lazyVsBlaze
( "copy"

0 comments on commit 5745a28

Please sign in to comment.