Reorder TLEither to after TEither

1 files changed, 2 insertions, 2 deletions

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))