From 442d1557b879a8a4bd76f441f72a17bfb71cf05f Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 17 Jul 2021 22:48:54 -0400
Subject: Now allowing compilers to generate custom-named outputs.

---
 lux-jvm/source/luxc/lang/translation/jvm/runtime.lux | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'lux-jvm/source/luxc/lang/translation/jvm/runtime.lux')

diff --git a/lux-jvm/source/luxc/lang/translation/jvm/runtime.lux b/lux-jvm/source/luxc/lang/translation/jvm/runtime.lux
index 20bd9bd9e..e0426f363 100644
--- a/lux-jvm/source/luxc/lang/translation/jvm/runtime.lux
+++ b/lux-jvm/source/luxc/lang/translation/jvm/runtime.lux
@@ -339,7 +339,7 @@
   0)
 
 (def: translate_runtime
-  (Operation [artifact.ID Binary])
+  (Operation [artifact.ID (Maybe Text) Binary])
   (let [runtime_class (..reflection //.$Runtime)
         bytecode ($d.class #$.V1_6 #$.Public $.finalC runtime_class (list) (type.class "java.lang.Object" (list)) (list)
                            (|>> adt_methods
@@ -349,14 +349,14 @@
         directive [runtime_class bytecode]]
     (do phase.monad
       [_ (generation.execute! directive)
-       _ (generation.save! ..runtime_id directive)]
-      (wrap [..runtime_id bytecode]))))
+       _ (generation.save! ..runtime_id #.None directive)]
+      (wrap [..runtime_id #.None bytecode]))))
 
 (def: function_id
   1)
 
 (def: translate_function
-  (Operation [artifact.ID Binary])
+  (Operation [artifact.ID (Maybe Text) Binary])
   (let [applyI (|> (enum.range n.enum 2 num_apply_variants)
                    (list@map (function (_ arity)
                                ($d.method #$.Public $.noneM apply_method (apply_signature arity)
@@ -386,8 +386,8 @@
         directive [function_class bytecode]]
     (do phase.monad
       [_ (generation.execute! directive)
-       _ (generation.save! ..function_id directive)]
-      (wrap [..function_id bytecode]))))
+       _ (generation.save! ..function_id #.None directive)]
+      (wrap [..function_id #.None bytecode]))))
 
 (def: #export translate
   (Operation [Registry Output])
-- 
cgit v1.2.3