VegOwOtenks/ubcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improved enum parsing error messages

Browse source
This commit is contained in:
VegOwOtenks 2025-02-13 21:44:40 +01:00
parent 2cd9b04b85
commit 2b4e5fcdc0
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Ubc/Parse/Syntax/Enumeration.hs
View file

@ -4,7 +4,7 @@ module Ubc.Parse.Syntax.Enumeration
) )
where where
import qualified Ubc.Parse.Syntax.Language as UbcLanguage import qualified Ubc.Parse.Syntax.Language as UbcLanguage
import Text.Parsec (ParsecT, many) import Text.Parsec (ParsecT, many, (<?>))
type EnumerationMember = String type EnumerationMember = String
data Enumeration = Enumeration data Enumeration = Enumeration
@ -16,7 +16,7 @@ data Enumeration = Enumeration
parse :: Monad m => ParsecT String u m Enumeration parse :: Monad m => ParsecT String u m Enumeration
parse = do parse = do
UbcLanguage.reserved "enum" UbcLanguage.reserved "enum"
identifier <- UbcLanguage.identifier identifier <- UbcLanguage.identifier <?> "enum identifier"
values <- UbcLanguage.braces $ many UbcLanguage.identifier values <- UbcLanguage.braces $ many UbcLanguage.identifier
return $ Enumeration identifier values return $ Enumeration identifier values