From 5d3f21123b585fb1c43da9d854b04c61678405df Mon Sep 17 00:00:00 2001 From: Josh Rahm 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/Internal/UnitInterface.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/Language/Fiddle/Internal/UnitInterface.hs') 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) -- cgit