diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2024-10-22 19:37:45 -0600 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2024-10-22 19:37:45 -0600 |
| commit | 977758cb8c968a9b371fdddbadf456e92107d11c (patch) | |
| tree | 975ba34b97a98cffcee37d8d933f2b2d3ecc9471 /src/Language/Fiddle/Ast/Internal/SyntaxTree.hs | |
| parent | 0a0f200a79a9e78b97addda6bd8e879d8c1c5d3e (diff) | |
| download | fiddle-977758cb8c968a9b371fdddbadf456e92107d11c.tar.gz fiddle-977758cb8c968a9b371fdddbadf456e92107d11c.tar.bz2 fiddle-977758cb8c968a9b371fdddbadf456e92107d11c.zip | |
Implement bitfield arrays.
Diffstat (limited to 'src/Language/Fiddle/Ast/Internal/SyntaxTree.hs')
| -rw-r--r-- | src/Language/Fiddle/Ast/Internal/SyntaxTree.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Language/Fiddle/Ast/Internal/SyntaxTree.hs b/src/Language/Fiddle/Ast/Internal/SyntaxTree.hs index c539665..0d0bc32 100644 --- a/src/Language/Fiddle/Ast/Internal/SyntaxTree.hs +++ b/src/Language/Fiddle/Ast/Internal/SyntaxTree.hs @@ -703,7 +703,7 @@ data BitType (stage :: Stage) (f :: Type -> Type) a where EnumBitType :: { -- | Expression defining the enum size. enumBitSize :: Expression Bits stage f a, - -- | The body of the enum. + -- | The body of the enum.set_stm32l4_gpio__bsr_r__set enumBitBody :: f (EnumBody stage f a), -- | Annotation for the enumeration. enumBitAnnot :: a @@ -737,7 +737,7 @@ data EnumConstantDecl stage f a where { -- | Identifier for the constant. enumConstIdent :: Identifier f a, -- | Expression defining the constant. - enumConstExpr :: Expression Unitless stage f a, + enumConstExpr :: ConstExpression Unitless stage f a, -- | Annotation for the constant. enumConstAnnot :: a } -> |