Benchmark float parsing by default
--HG--
extra : convert_revision : 64516b5f9b93b24d34535243fbd585e8c63b542a
commit6e8433328eec42ab7ffd9063527204a68fee3253
authorBryan O'Sullivan <bos@serpentine.com>
dateSat 9 Oct 2010, 00:16 (16 years ago)
parent42afc09
tests/benchmarks/ReadNumbers.hs+1−1
@@ -12,7 +12,7 @@ hex = T.signed T.hexadecimal :: T.Lexer Int
1212
1313double = T.double :: T.Lexer Double
1414
15−def = dec
15+def = double
1616
1717read1 :: Num a => T.Lexer a -> T.Text -> a
1818read1 reader = foldl' go 0 . T.lines