From 53704218a3705132dbe807a8ef54f938809f84d5 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 1 Oct 2022 16:33:20 -0400
Subject: New format for extensions [part 0]

---
 lux-python/source/program.lux | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

(limited to 'lux-python/source')

diff --git a/lux-python/source/program.lux b/lux-python/source/program.lux
index f3dbc436c..e89d8b93c 100644
--- a/lux-python/source/program.lux
+++ b/lux-python/source/program.lux
@@ -492,8 +492,8 @@
                                [_ (execute! content)]
                                (evaluate! context (_.var (reference.artifact context)))))))))))))
 
-(with_expansions [<jvm> (these (def (extender phase_wrapper)
-                                 (-> phase.Wrapper Extender)
+(with_expansions [<jvm> (these (def extender
+                                 Extender
                                  ... TODO: Stop relying on coercions ASAP.
                                  (<| (as Extender)
                                      (function (_ handler))
@@ -524,11 +524,9 @@
          (-> phase.Wrapper Extender)
          (as_expected handler))))
 
-(def (phase_wrapper archive)
-  (-> Archive (runtime.Operation phase.Wrapper))
-  (|> (..pseudo_function ..to_host)
-      (as phase.Wrapper)
-      phase#in))
+(def phase_wrapper
+  phase.Wrapper
+  (..pseudo_function ..to_host))
 
 (def platform
   (IO (Platform Register (_.Expression Any) (_.Statement Any)))
@@ -590,7 +588,7 @@
                          analysis.bundle
                          ..platform
                          generation.bundle
-                         (function.constant extension/bundle.empty)
+                         extension/bundle.empty
                          ..lux_program
                          (reference.constant python/reference.system)
                          [Register
-- 
cgit v1.2.3