diff --git a/src/Language/Wasm/Lexer.x b/src/Language/Wasm/Lexer.x index b8ff75f..00eb769 100644 --- a/src/Language/Wasm/Lexer.x +++ b/src/Language/Wasm/Lexer.x @@ -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