From 07c55cea4dc55b88ccf2587187085f38c1b1414d Mon Sep 17 00:00:00 2001
From: Ilya Rezvov <ilya.rezvov@revjet.com>
Date: Thu, 18 Jan 2018 22:43:27 -0800
Subject: [PATCH] reset string accumulator

---
 src/Language/Wasm/Lexer.x | 1 +
 1 file changed, 1 insertion(+)

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