fix: vlbrace error should popLayout

This commit is contained in:
crumbtoo
2024-03-11 11:05:50 -06:00
parent cf81b76c1a
commit 8d8651d549
2 changed files with 2 additions and 1 deletions

View File

@@ -14,6 +14,7 @@ module Rlp.Lex
, popLexState , popLexState
, programInitState , programInitState
, runP' , runP'
, popLayout
) )
where where
import Codec.Binary.UTF8.String (encodeChar) import Codec.Binary.UTF8.String (encodeChar)

View File

@@ -84,7 +84,7 @@ VL : vlbrace { () }
VR :: { () } VR :: { () }
VR : vrbrace { () } VR : vrbrace { () }
| error { () } | error {% void popLayout }
VS :: { () } VS :: { () }
VS : ';' { () } VS : ';' { () }