@@ -12,7 +12,7 @@ hex = T.signed T.hexadecimal :: T.Lexer Int
13double = T.double :: T.Lexer Double
13double = T.double :: T.Lexer Double
15−def = dec
15+def = double
17read1 :: Num a => T.Lexer a -> T.Text -> a
17read1 :: Num a => T.Lexer a -> T.Text -> a
18read1 reader = foldl' go 0 . T.lines
18read1 reader = foldl' go 0 . T.lines