wip flattening

ollef · Jun 27, 2024 · 55982fc · 55982fc
1 parent ef09465
commit 55982fc
Show file tree

Hide file tree

Showing 3 changed files with 173 additions and 178 deletions.
diff --git a/src/Low/Syntax.hs b/src/Low/Syntax.hs
@@ -17,11 +17,11 @@ data Term v
   = Operand !(Operand v)
   | Let !PassBy !Name !(LetOperation v) !(Scope Term v)
   | Seq !(SeqOperation v) !(Term v)
-  | Case !(Operand v) [Branch v] (Maybe (Term v))
   deriving (Eq, Show, Generic, Hashable)
 
 data LetOperation v
-  = Call !Name.Lowered [Operand v]
+  = Case !(Operand v) [Branch v] (Maybe (Term v))
+  | Call !Name.Lowered [Operand v]
   | StackAllocate !(Operand v)
   | HeapAllocate !Name.QualifiedConstructor !(Operand v)
   | HeapPayload !(Operand v)