From 5d3f21123b585fb1c43da9d854b04c61678405df Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Sun, 27 Oct 2024 13:29:33 -0600
Subject: Finish implementing alpha-version of the C-backend.

This produces valid C code in a header file and also provides an INTF
macro which makes it much less obtuse to call the various functions to
set and unset bitfields.
---
 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 066fd2e..1bc75bc 100644
--- a/src/Language/Fiddle/Parser.hs
+++ b/src/Language/Fiddle/Parser.hs
@@ -254,7 +254,7 @@ registerBodyP = withMeta $ RegisterBody <$> bitBodyTypeP <*> defer body deferred
 
 deferredRegisterBodyP :: Pa DeferredRegisterBody
 deferredRegisterBodyP =
-  withMeta $
+  withMetaLeaveComments $
     DeferredRegisterBody <$> many (directedP registerBitsDeclP <* tok TokSemi)
 
 registerBitsDeclP :: Pa RegisterBitsDecl
-- 
cgit