From d6fae8c7de4bc952ba88f0c86cad9e8141eaf3df Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Fri, 20 Jan 2023 00:43:51 -0700 Subject: Start implementing the Stage2 compiler. --- src/Language/Fiddle/Ast.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Language/Fiddle/Ast.hs') 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() { } - 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 -- cgit