From 5924b745fbaf52000981c298ec8f18b3c0c4a1be Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Sun, 13 Oct 2024 01:20:11 -0600
Subject: Start implementing a bunch of the C backend.

Have basic implementations down for coarse registers. Working on getting
bitfields supported.
---
 src/Language/Fiddle/Parser.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/src/Language/Fiddle/Parser.hs b/src/Language/Fiddle/Parser.hs
index 8070c1c..ebbd51b 100644
--- a/src/Language/Fiddle/Parser.hs
+++ b/src/Language/Fiddle/Parser.hs
@@ -207,14 +207,14 @@ objTypeDeclP =
     )
       <|> ( do
               tok_ KWReserved
-              ReservedDecl Vacant Vacant <$> exprInParenP
+              ReservedDecl Witness <$> exprInParenP
           )
       <|> ( do
               bt <- bodyTypeP
               TypeSubStructure <$> defer body (objTypeBodyP bt) <*> optionMaybe ident
           )
       <|> ( do
-              modifier <- optionMaybe modifierP
+              modifier <- Perhaps <$> optionMaybe modifierP
               tok_ KWReg
               RegisterDecl Vacant modifier . Perhaps
                 <$> optionMaybe ident
-- 
cgit