From 4b85b09593fae1b72a6d64b09a7843f9a28dbe99 Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Sun, 27 Oct 2024 22:31:38 -0600
Subject: Enforce that registers are either 8, 16, 32, or 64 bits.

Fixed the issues where the output C code did not use correct register
sizes.
---
 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 1bc75bc..415852c 100644
--- a/src/Language/Fiddle/Parser.hs
+++ b/src/Language/Fiddle/Parser.hs
@@ -224,7 +224,7 @@ objTypeDeclP =
               tok_ KWReg
               RegisterDecl Vacant modifier . Perhaps
                 <$> optionMaybe ident
-                <*> exprInParenP
+                <*> fmap RightV exprInParenP
                 <*> optionMaybe (tok TokColon *> registerBodyP)
           )
 
-- 
cgit