forked from GitHub/haskell-wasm
reset string accumulator
This commit is contained in:
1 parent
d6395b490e
commit
07c55cea4d
1 file changed
+1
@@ -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
|
||||
|
||||
Reference in new issue
Block a user