From 977758cb8c968a9b371fdddbadf456e92107d11c Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Tue, 22 Oct 2024 19:37:45 -0600 Subject: Implement bitfield arrays. --- src/Language/Fiddle/Parser.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Language/Fiddle/Parser.hs') diff --git a/src/Language/Fiddle/Parser.hs b/src/Language/Fiddle/Parser.hs index ad96724..066fd2e 100644 --- a/src/Language/Fiddle/Parser.hs +++ b/src/Language/Fiddle/Parser.hs @@ -315,7 +315,7 @@ enumConstantDeclP :: Pa EnumConstantDecl enumConstantDeclP = withMeta $ (tok KWReserved >> EnumConstantReserved <$> (tok TokEq >> expressionP)) - <|> (EnumConstantDecl <$> ident <*> (tok TokEq >> expressionP)) + <|> (EnumConstantDecl <$> ident <*> (tok TokEq >> constExpressionP)) constExpressionP :: Pa (ConstExpression u) constExpressionP = withMeta $ ConstExpression . RightV <$> expressionP -- cgit