From 891b1cfc82322f8017f0a4f6b707d6fe52024545 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 3 Sep 2021 21:51:30 -0400
Subject: Unified tuple and record syntax.

---
 lux-js/source/program.lux | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'lux-js/source')

diff --git a/lux-js/source/program.lux b/lux-js/source/program.lux
index ea9011dac..0fcf22f56 100644
--- a/lux-js/source/program.lux
+++ b/lux-js/source/program.lux
@@ -587,14 +587,14 @@
   (IO (Platform [Register Text] _.Expression _.Statement))
   (do io.monad
     [host ..host]
-    (in {#platform.&file_system (for {@.old (file.async file.default)
+    (in [#platform.&file_system (for {@.old (file.async file.default)
                                       @.jvm (file.async file.default)
                                       @.js file.default})
          #platform.host host
          #platform.phase js.generate
          #platform.runtime runtime.generate
          #platform.phase_wrapper ..phase_wrapper
-         #platform.write (|>> _.code (\ utf8.codec encoded))})))
+         #platform.write (|>> _.code (\ utf8.codec encoded))])))
 
 (def: (program context program)
   (Program _.Expression _.Statement)
@@ -660,10 +660,10 @@
 (program: [service /cli.service]
   (let [extension ".js"]
     (exec (do async.monad
-            [_ (/.compiler {#/static.host @.js
+            [_ (/.compiler [#/static.host @.js
                             #/static.host_module_extension extension
                             #/static.target (/cli.target service)
-                            #/static.artifact_extension extension}
+                            #/static.artifact_extension extension]
                            ..expander
                            analysis.bundle
                            ..platform
-- 
cgit v1.2.3