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.

1 files changed, 3 insertions, 3 deletions

diff --git a/src/Language/Fiddle/Internal/UnitInterface.hs b/src/Language/Fiddle/Internal/UnitInterface.hs
index 26b0875..465741f 100644
--- a/src/Language/Fiddle/Internal/UnitInterface.hs
+++ b/src/Language/Fiddle/Internal/UnitInterface.hs
@@ -27,13 +27,13 @@ data InternalDirectiveExpression
 data InternalDirective = InternalDirective
   { -- | Specifies the backend that this directive is intended for. If 'Nothing',
     --   the directive applies globally across all backends.
-    directiveBackend :: Maybe String,
+    internalDirectiveBackend :: Maybe String,
     -- | The key or name of the directive. This identifies the directive's
     --   purpose, such as enabling specific features or setting options.
-    directiveKey :: String,
+    internalDirectiveKey :: String,
     -- | The optional value associated with this directive. Some directives
     --   may not require a value (e.g., flags), in which case this field is 'Nothing'.
-    directiveValue :: Maybe InternalDirectiveExpression
+    internalDirectiveValue :: Maybe InternalDirectiveExpression
   }
   deriving (Generic, ToJSON, FromJSON, Show, Eq, Ord)