Skip to content
Browse files

[fix] Json parser: proper handle of floats between -1 and 0

  • Loading branch information...
1 parent ff0f481 commit 6b295a97eb4deea34bfbfeaca301c9404e8e59cb @BourgerieQuentin BourgerieQuentin committed with cedricss Nov 21, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 libbase/jsonLex.ml
View
2 libbase/jsonLex.ml
@@ -29,7 +29,7 @@ let regexp t_blank = [' ' '\t' '\n' '\r']
let regexp t_digit = ['0'-'9']
let regexp t_digits = t_digit+
-let regexp t_int = '0'| '-'? ['1'-'9'] t_digit*
+let regexp t_int = '0'| '-''0' | '-'? ['1'-'9'] t_digit*
let regexp t_frac = "." t_digits
let regexp t_e = ("e"|"E") ("+"|"-")?
let regexp t_exp = t_e t_digits

0 comments on commit 6b295a9

Please sign in to comment.
Something went wrong with that request. Please try again.