diff options
-rw-r--r-- | src/urweb.lex | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/urweb.lex b/src/urweb.lex index c44a4c1d..eada3611 100644 --- a/src/urweb.lex +++ b/src/urweb.lex @@ -537,6 +537,12 @@ xint = x[0-9a-fA-F][0-9a-fA-F]; <INITIAL> "CURRENT_TIMESTAMP" => (Tokens.CURRENT_TIMESTAMP (pos yypos, pos yypos + size yytext)); +<INITIAL> "_LOC_" => (let val strLoc = ErrorMsg.spanToString (ErrorMsg.spanOf + (pos yypos, pos yypos + size yytext)) + in + Tokens.STRING (strLoc, pos yypos, pos yypos + size yytext) + end); + <INITIAL> {id} => (Tokens.SYMBOL (yytext, pos yypos, pos yypos + size yytext)); <INITIAL> {cid} => (Tokens.CSYMBOL (yytext, pos yypos, pos yypos + size yytext)); |