diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2024-10-13 01:20:11 -0600 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2024-10-13 01:20:11 -0600 |
| commit | 5924b745fbaf52000981c298ec8f18b3c0c4a1be (patch) | |
| tree | bfbc9398ab6b918eca35961c26126d92f748e8d3 /src/Language/Fiddle/Internal/UnitInterface.hs | |
| parent | da0d596946cf21e2f275dd03b40c0a6c0824f66b (diff) | |
| download | fiddle-5924b745fbaf52000981c298ec8f18b3c0c4a1be.tar.gz fiddle-5924b745fbaf52000981c298ec8f18b3c0c4a1be.tar.bz2 fiddle-5924b745fbaf52000981c298ec8f18b3c0c4a1be.zip | |
Start implementing a bunch of the C backend.
Have basic implementations down for coarse registers. Working on getting
bitfields supported.
Diffstat (limited to 'src/Language/Fiddle/Internal/UnitInterface.hs')
| -rw-r--r-- | src/Language/Fiddle/Internal/UnitInterface.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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) |