summaryrefslogtreecommitdiff
path: root/utils/genprimopcode/Lexer.x
diff options
context:
space:
mode:
Diffstat (limited to 'utils/genprimopcode/Lexer.x')
-rw-r--r--utils/genprimopcode/Lexer.x2
1 files changed, 1 insertions, 1 deletions
diff --git a/utils/genprimopcode/Lexer.x b/utils/genprimopcode/Lexer.x
index ad2590bcb8..06624b2ec0 100644
--- a/utils/genprimopcode/Lexer.x
+++ b/utils/genprimopcode/Lexer.x
@@ -68,7 +68,7 @@ words :-
<0> "VECTUPLE" { mkT TVECTUPLE }
<0> [a-z][a-zA-Z0-9\#_]* { mkTv TLowerName }
<0> [A-Z][a-zA-Z0-9\#_]* { mkTv TUpperName }
- <0> [0-9][0-9]* { mkTv (TInteger . read) }
+ <0> \-? [0-9][0-9]* { mkTv (TInteger . read) }
<0> \" [^\"]* \" { mkTv (TString . tail . init) }
<in_braces> [^\{\}]+ { mkTv TNoBraces }
<in_braces> \n { mkTv TNoBraces }