summaryrefslogtreecommitdiff
path: root/src/Language/Fiddle/Parser.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Language/Fiddle/Parser.hs')
-rw-r--r--src/Language/Fiddle/Parser.hs2
1 files changed, 1 insertions, 1 deletions
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