Add a tiny encoding benchmark
--HG--
extra : convert_revision : 3f5cd98869249f7ad0dcf39df16c0f6253a0a93a
commit7b070bd7ed870d632d16b7603e1b43c0d2b73c66
authorBryan O'Sullivan <bos@serpentine.com>
dateThu 14 Oct 2010, 17:27 (16 years ago)
parent3574dd5
tests/benchmarks/EncodeUtf8.hsnew file+9
@@ -0,0 +1,9 @@
1+{-# LANGUAGE OverloadedStrings #-}
2+import Data.Text as T
3+import Data.ByteString as B
4+import Data.Text.Encoding as T
5+
6+main = do
7+ let k = 50000000
8+ t = T.replicate k "a"
9+ B.putStr (T.encodeUtf8 t)