From 977758cb8c968a9b371fdddbadf456e92107d11c Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Tue, 22 Oct 2024 19:37:45 -0600
Subject: Implement bitfield arrays.

---
 src/Language/Fiddle/Compiler/ConsistencyCheck.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Language/Fiddle/Compiler/ConsistencyCheck.hs')

diff --git a/src/Language/Fiddle/Compiler/ConsistencyCheck.hs b/src/Language/Fiddle/Compiler/ConsistencyCheck.hs
index a8d9758..3def59d 100644
--- a/src/Language/Fiddle/Compiler/ConsistencyCheck.hs
+++ b/src/Language/Fiddle/Compiler/ConsistencyCheck.hs
@@ -322,7 +322,7 @@ checkEnumConsistency expr enumBody@(EnumBody {enumConsts = constants}) = do
       foldlM
         ( \imap (undirected -> enumConst) -> do
             number <- case enumConst of
-              EnumConstantDecl _ expr _ -> expressionToIntM expr
+              EnumConstantDecl _ expr _ -> return $ trueValue expr
               EnumConstantReserved expr _ -> expressionToIntM expr
 
             when (number >= 2 ^ declaredSize) $
-- 
cgit