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/Internal/UnitInterface.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 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 2a538eb..42ce810 100644
--- a/src/Language/Fiddle/Internal/UnitInterface.hs
+++ b/src/Language/Fiddle/Internal/UnitInterface.hs
@@ -125,10 +125,10 @@ data ExportedTypeDecl where
 
 data ReferencedObjectType where
   ReferencedObjectType ::
-    {objectTypeReference :: String} -> ReferencedObjectType
+    {objectTypeReference :: NonEmpty String} -> ReferencedObjectType
   ArrayObjectType ::
     { arrayObjectTypeType :: ReferencedObjectType,
-      arryObjecttTypeNumber :: N Unitless
+      arrayObjectTypeNumber :: N Unitless
     } ->
     ReferencedObjectType
   deriving (Show, Eq, Ord, Generic, FromJSON, ToJSON)
-- 
cgit