diff options
author | Adam Chlipala <adamc@hcoop.net> | 2009-12-12 14:51:10 -0500 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2009-12-12 14:51:10 -0500 |
commit | 4ba25b80371081c01dfe165b715c9dece1f95cc5 (patch) | |
tree | 4c48413e12978d861257f204e8849034f2447c07 /src/urweb.lex | |
parent | aa76848b2cfdbf3b1c61dd5ed9752713222a4828 (diff) |
Fix lexing of string literals in XML; treat EError as impure in MonoReduce
Diffstat (limited to 'src/urweb.lex')
-rw-r--r-- | src/urweb.lex | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/urweb.lex b/src/urweb.lex index 4e572009..b6916cb9 100644 --- a/src/urweb.lex +++ b/src/urweb.lex @@ -290,7 +290,7 @@ notags = [^<{\n]+; ("Expected float, received: " ^ yytext); continue ())); <XMLTAG> "\"" => (YYBEGIN STRING; - xmlString := true; + xmlString := true; strEnder := #"\""; strStart := yypos; str := []; continue ()); <XMLTAG> "{" => (YYBEGIN INITIAL; |