Fibber.hs

{-# LANGUAGE ScopedTypeVariables #-}
module Main where
import Criterion.Main
import Criterion.Config
import qualified Data.ByteString.Lazy as B
import qualified Data.ByteString.Lazy.Char8 as C
import GHC.Word

bstring = B.unpack . C.pack
map_:: String -> [GHC.Word.Word8]
map_ = map (fromIntegral.fromEnum)

dataZ = take 100000 $ repeat 'a'

main = defaultMainWith defaultConfig (return ()) [
        bgroup "tiny" [ bench "bytestring" $ whnf bstring dataZ
                      , bench "map" $ whnf map_ dataZ
                      ]
       ]