destructuring lets and arrows

2024-11-30 15:07:54 -08:00
parent 067293ea85
commit d2bbf681ea
9 changed files with 117 additions and 75 deletions
--- a/src/Lib/Syntax.idr
+++ b/src/Lib/Syntax.idr
@@ -60,8 +60,7 @@ public export
 data DoStmt : Type where
  DoExpr : (fc : FC) -> Raw -> DoStmt
  DoLet : (fc : FC) -> String -> Raw -> DoStmt
-  DoArrow : (fc: FC) -> String -> Raw -> DoStmt
-
+  DoArrow : (fc: FC) -> Raw -> Raw -> List RCaseAlt -> DoStmt

 data Decl : Type
 data Raw : Type where