good enough

2024-02-20 14:34:42 -07:00
parent e63e34a3d8
commit 09f393af89
2 changed files with 29 additions and 13 deletions
--- a/src/Rlp/Syntax/Types.hs
+++ b/src/Rlp/Syntax/Types.hs
@@ -127,6 +127,8 @@ data Decl p a = FunD   (NameP p) [Pat p] (Expr' p a) (Maybe (Where p a))
              | DataD  (NameP p) [NameP p] [ConAlt p]
              | InfixD Assoc Int (NameP p)

+type Decl' p a = Decl p (Cofree (ExprF p) a)
+
 type Expr' p = Cofree (ExprF p)

 makeLenses ''Program