From 1e820e50668631a239cfc3188137cc90c34cf738 Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Fri, 11 Oct 2024 16:19:21 -0600
Subject: Further implement C backend.

There is a problem where I'm mixing up bits and bytes. I think I'll try
to resolve that using more type-level constraints.
---
 src/Language/Fiddle/Parser.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/Language/Fiddle/Parser.hs')

diff --git a/src/Language/Fiddle/Parser.hs b/src/Language/Fiddle/Parser.hs
index e8f1b62..8d2eab2 100644
--- a/src/Language/Fiddle/Parser.hs
+++ b/src/Language/Fiddle/Parser.hs
@@ -207,7 +207,7 @@ objTypeDeclP =
     )
       <|> ( do
               tok_ KWReserved
-              ReservedDecl <$> exprInParenP
+              ReservedDecl Vacant Vacant <$> exprInParenP
           )
       <|> ( do
               bt <- bodyTypeP
@@ -216,7 +216,7 @@ objTypeDeclP =
       <|> ( do
               modifier <- optionMaybe modifierP
               tok_ KWReg
-              RegisterDecl () modifier . Perhaps
+              RegisterDecl Vacant modifier . Perhaps
                 <$> optionMaybe ident
                 <*> exprInParenP
                 <*> optionMaybe (tok TokColon *> registerBodyP)
@@ -258,7 +258,7 @@ registerBitsDeclP =
         tok KWReserved >> ReservedBits <$> exprInParenP
     )
       <|> (BitsSubStructure <$> registerBodyP <*> optionMaybe ident)
-      <|> ( DefinedBits ()
+      <|> ( DefinedBits Vacant
               <$> optionMaybe modifierP
               <*> ident
               <*> (tok TokColon >> registerBitsTypeRefP)
-- 
cgit