6eaebff · text · git.iko.soy

Fix bit rot in use of bytestring-lexing

commit6eaebffaca4d7aacc81fa4e09b8118e7c67d72c4 authorBryan O'Sullivan <bos@serpentine.com> dateTue 22 Dec 2015, 12:02 (11 years ago) parent824f1f2

2 files changed+3−6

unifiedsplit

benchmarks/haskell/Benchmarks/ReadNumbers.hs+2−5

@@ -25,8 +25,7 @@ import Data.List (foldl')

2525import Numeric (readDec, readFloat, readHex)

2626import qualified Data.ByteString.Char8 as B

2727import qualified Data.ByteString.Lazy.Char8 as BL

28−import qualified Data.ByteString.Lex.Double as B

29−import qualified Data.ByteString.Lex.Lazy.Double as BL

28+import qualified Data.ByteString.Lex.Fractional as B

3029import qualified Data.Text as T

3130import qualified Data.Text.IO as T

3231import qualified Data.Text.Lazy as TL

@@ -63,12 +62,10 @@ benchmark fp = do

6362 whnf (double . text TL.rational) tl

6463

6564 , bench "DecimalByteString" $ whnf (int . byteString B.readInt) b

66− , bench "DoubleByteString" $ whnf (double . byteString B.readDouble) b

65+ , bench "DoubleByteString" $ whnf (double . byteString B.readDecimal) b

6766

6867 , bench "DecimalLazyByteString" $

6968 whnf (int . byteString BL.readInt) bl

70− , bench "DoubleLazyByteString" $

71− whnf (double . byteString BL.readDouble) bl

7269 ]

7370 where

7471 -- Used for fixing types

benchmarks/text-benchmarks.cabal+1−1

@@ -34,7 +34,7 @@ executable text-benchmarks

3434 binary,

3535 blaze-builder,

3636 bytestring,

37− bytestring-lexing,

37+ bytestring-lexing >= 0.5.0,

3838 containers,

3939 criterion >= 0.10.0.0,

4040 deepseq,