From cd71a864ad5be13ed6ec6d046e0a2cb1087bdf94 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 10 Sep 2021 01:21:23 -0400
Subject: Migrated variants to the new syntax.

---
 stdlib/source/program/compositor.lux | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'stdlib/source/program/compositor.lux')

diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux
index b36d73070..f18f45e54 100644
--- a/stdlib/source/program/compositor.lux
+++ b/stdlib/source/program/compositor.lux
@@ -63,13 +63,13 @@
   (do async.monad
     [?output action]
     (case ?output
-      (#try.Failure error)
+      {#try.Failure error}
       (exec (debug.log! (format text.new_line
                                 failure_description text.new_line
                                 error text.new_line))
         (io.run! (\ world/program.default exit +1)))
 
-      (#try.Success output)
+      {#try.Success output}
       (in output))))
 
 (def: (timed process)
@@ -87,11 +87,11 @@
 (def: (package! fs host_dependencies [packager package] static archive context)
   (-> (file.System Async) (Dictionary file.Path Binary) [Packager file.Path] Static Archive Context (Async (Try Any)))
   (case (packager host_dependencies archive context)
-    (#try.Success content)
+    {#try.Success content}
     (\ fs write content package)
     
-    (#try.Failure error)
-    (\ async.monad in (#try.Failure error))))
+    {#try.Failure error}
+    (\ async.monad in {#try.Failure error})))
 
 (def: (load_host_dependencies fs host_dependencies)
   (-> (file.System Async) (List file.Path) (Async (Try (Dictionary file.Path Binary))))
@@ -104,7 +104,7 @@
         #.End
         (in output)
 
-        (#.Item head tail)
+        {#.Item head tail}
         (do !
           [content (\ fs read head)]
           (recur tail
@@ -131,7 +131,7 @@
     (do [! async.monad]
       [platform (async.future platform)]
       (case service
-        (#/cli.Compilation compilation)
+        {#/cli.Compilation compilation}
         (<| (or_crash! "Compilation failed:")
             ..timed
             (do (try.with async.monad)
@@ -165,14 +165,14 @@
                              program_context)]
               (in (debug.log! "Compilation complete!"))))
 
-        (#/cli.Export export)
+        {#/cli.Export export}
         (<| (or_crash! "Export failed:")
             (do (try.with async.monad)
               [_ (/export.export (value@ #platform.&file_system platform)
                                  export)]
               (in (debug.log! "Export complete!"))))
         
-        (#/cli.Interpretation interpretation)
+        {#/cli.Interpretation interpretation}
         ... TODO: Fix the interpreter...
         (undefined)
         ... (<| (or_crash! "Interpretation failed:")
-- 
cgit v1.2.3