@@ -3,8 +3,8 @@
33import qualified Data.ByteString.Char8 as BS
44import qualified Data.ByteString.Lazy.Char8 as BL
55import qualified Data.ByteString.Lazy.Internal as BL
6+import Control.Monad.Trans (liftIO)
67import Control.Exception (evaluate)
7−import Control.DeepSeq (NFData(..))
88import Control.Parallel.Strategies
99import Criterion.Main
1010import Data.Char
@@ -60,10 +60,13 @@ main = do
6060 tsl = TS.lines tsa
6161 tll = TL.lines tla
6262 ll = L.lines la
63− evaluate (rnf [B tsa, B tsb, B tla, B tlb, B bsa, B bsb, B bla, B blb,
64− B bsa_len, B tsa_len, B bla_len, B tla_len, B la, B la_len,
65− B tsb_len, B lb, B bsl, B bll, B tsl, B tll, B ll])
66− defaultMainWith myConfig [
63+ defaultMainWith
64+ myConfig
65+ (liftIO . evaluate $
66+ rnf [B tsa, B tsb, B tla, B tlb, B bsa, B bsb, B bla, B blb,
67+ B bsa_len, B tsa_len, B bla_len, B tla_len, B la, B la_len,
68+ B tsb_len, B lb, B bsl, B bll, B tsl, B tll, B ll])
69+ [
6770 bgroup "append" [
6871 bench "ts" $ nf (TS.append tsb) tsa
6972 , bench "tl" $ nf (TL.append tlb) tla