From d0eb9a1edfb4233d557d954f46685f25382234d8 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Tue, 29 Apr 2025 20:37:06 +0200
Subject: Reorder TLEither to after TEither

---
 src/AST/SplitLets.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/AST/SplitLets.hs')

diff --git a/src/AST/SplitLets.hs b/src/AST/SplitLets.hs
index 159934d..1379e35 100644
--- a/src/AST/SplitLets.hs
+++ b/src/AST/SplitLets.hs
@@ -123,11 +123,11 @@ split typ = case typ of
   STPair{} -> splitRec (EVar ext typ IZ) typ
   STNil -> other
   STEither{} -> other
+  STLEither{} -> other
   STMaybe{} -> other
   STArr{} -> other
   STScal{} -> other
   STAccum{} -> other
-  STLEither{} -> other
   where
     other :: (Pointers (t : env) t, Bindings Ex (t : env) '[])
     other = (Point typ IZ, BTop)
@@ -142,11 +142,11 @@ splitRec rhs typ = case typ of
             (p2, bs2) = splitRec (ESnd ext (sinkWithBindings bs1 `weakenExpr` rhs)) b
         in (PPair (PWeak (sinkWithBindings bs2) p1) p2, bconcat bs1 bs2)
   STEither{} -> other
+  STLEither{} -> other
   STMaybe{} -> other
   STArr{} -> other
   STScal{} -> other
   STAccum{} -> other
-  STLEither{} -> other
   where
     other :: (Pointers (t : env) t, Bindings Ex env '[t])
     other = (Point typ IZ, BPush BTop (typ, rhs))
-- 
cgit v1.2.3-70-g09d2