reset string accumulator

2018-01-18 22:43:27 -08:00
parent d6395b490e
commit 07c55cea4d
1 changed files with 1 additions and 0 deletions
@@ -156,6 +156,7 @@ endStringLiteral (pos, _, _inp, _) _len = do
    alexSetStartCode defaultStartCode
    setLexerStringFlag False
    str <- LBSUtf8.fromString . reverse <$> getLexerStringValue
+    setLexerStringValue ""
    return $ Lexeme pos $ TStringLit str

 tokenStr :: (LBS.ByteString -> Token) -> AlexAction Lexeme