GitHub/haskell-wasm
1
0
Fork 1
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

reset string accumulator

Browse Source
This commit is contained in:
Ilya Rezvov
2018-01-18 22:43:27 -08:00
parent d6395b490e
commit 07c55cea4d
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Language/Wasm/Lexer.x
+1
View File
@@ -156,6 +156,7 @@ endStringLiteral (pos, _, _inp, _) _len = do
alexSetStartCode defaultStartCode alexSetStartCode defaultStartCode
setLexerStringFlag False setLexerStringFlag False
str <- LBSUtf8.fromString . reverse <$> getLexerStringValue str <- LBSUtf8.fromString . reverse <$> getLexerStringValue
setLexerStringValue ""
return $ Lexeme pos $ TStringLit str return $ Lexeme pos $ TStringLit str
tokenStr :: (LBS.ByteString -> Token) -> AlexAction Lexeme tokenStr :: (LBS.ByteString -> Token) -> AlexAction Lexeme