diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2023-01-20 00:43:51 -0700 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2023-01-20 00:43:51 -0700 |
| commit | d6fae8c7de4bc952ba88f0c86cad9e8141eaf3df (patch) | |
| tree | ad37ff8c9f5d872c76868ca99fb36f7d50a7b639 /src/Language/Fiddle/Ast.hs | |
| parent | 19e7ae516cbdc600beefa05506d0f30f435ba6a4 (diff) | |
| download | fiddle-d6fae8c7de4bc952ba88f0c86cad9e8141eaf3df.tar.gz fiddle-d6fae8c7de4bc952ba88f0c86cad9e8141eaf3df.tar.bz2 fiddle-d6fae8c7de4bc952ba88f0c86cad9e8141eaf3df.zip | |
Start implementing the Stage2 compiler.
Diffstat (limited to 'src/Language/Fiddle/Ast.hs')
| -rw-r--r-- | src/Language/Fiddle/Ast.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Language/Fiddle/Ast.hs b/src/Language/Fiddle/Ast.hs index 60b9e11..61a637e 100644 --- a/src/Language/Fiddle/Ast.hs +++ b/src/Language/Fiddle/Ast.hs @@ -218,7 +218,7 @@ instance Annotated (RegisterBitsTypeRef stage) where data AnonymousBitsType stage f a where -- enum(<expr>) { <body> } - AnonymousEnumBody :: Expression 'Stage1 f a -> f (EnumBody stage f a) -> a -> AnonymousBitsType stage f a + AnonymousEnumBody :: Expression stage f a -> f (EnumBody stage f a) -> a -> AnonymousBitsType stage f a deriving (Generic, Annotated, Alter) data BitType (stage :: Stage) (f :: * -> *) a where |