From 376c3e472fbb1e2656f8c61b26e0276570609aa1 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 13 Sep 2021 00:29:57 -0400
Subject: Updated only/except import syntax to take into account record =>
 variant syntax change.

---
 stdlib/source/program/compositor/cli.lux    | 10 +++++-----
 stdlib/source/program/compositor/export.lux | 14 +++++++-------
 stdlib/source/program/compositor/import.lux | 20 ++++++++++----------
 stdlib/source/program/compositor/static.lux |  4 ++--
 4 files changed, 24 insertions(+), 24 deletions(-)

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

diff --git a/stdlib/source/program/compositor/cli.lux b/stdlib/source/program/compositor/cli.lux
index e678f2c6e..207d76560 100644
--- a/stdlib/source/program/compositor/cli.lux
+++ b/stdlib/source/program/compositor/cli.lux
@@ -1,17 +1,17 @@
 (.module:
   [library
-   [lux {"-" [Module Source]}
+   [lux {"-" Module Source}
     [control
-     [pipe {"+" [case>]}]
+     [pipe {"+" case>}]
      ["<>" parser
-      ["[0]" cli {"+" [Parser]}]]]
+      ["[0]" cli {"+" Parser}]]]
     [tool
      [compiler
       [meta
        [archive
-        [descriptor {"+" [Module]}]]]]]
+        [descriptor {"+" Module}]]]]]
     [world
-     [file {"+" [Path]}]]]])
+     [file {"+" Path}]]]])
 
 (type: .public Source
   Path)
diff --git a/stdlib/source/program/compositor/export.lux b/stdlib/source/program/compositor/export.lux
index 117c52251..64cb95955 100644
--- a/stdlib/source/program/compositor/export.lux
+++ b/stdlib/source/program/compositor/export.lux
@@ -1,15 +1,15 @@
 (.module:
   [library
-   [lux {"-" [Source]}
+   [lux {"-" Source}
     [abstract
-     ["[0]" monad {"+" [do]}]]
+     ["[0]" monad {"+" do}]]
     [control
-     ["[0]" try {"+" [Try]}]
+     ["[0]" try {"+" Try}]
      [concurrency
-      ["[0]" async {"+" [Async]}]]]
+      ["[0]" async {"+" Async}]]]
     [data
      ["[0]" text
-      ["%" format {"+" [format]}]]
+      ["%" format {"+" format}]]
      [collection
       ["[0]" dictionary]
       ["[0]" row]]
@@ -22,11 +22,11 @@
      [compiler
       [meta
        ["[0]" io "_"
-        ["[1]" context {"+" [Extension]}]]]]]
+        ["[1]" context {"+" Extension}]]]]]
     [world
      ["[0]" file]]]]
   [//
-   [cli {"+" [Source Export]}]])
+   [cli {"+" Source Export}]])
 
 (def: file
   "library.tar")
diff --git a/stdlib/source/program/compositor/import.lux b/stdlib/source/program/compositor/import.lux
index 0e41d66a9..04eb93e6e 100644
--- a/stdlib/source/program/compositor/import.lux
+++ b/stdlib/source/program/compositor/import.lux
@@ -1,21 +1,21 @@
 (.module:
   [library
-   [lux {"-" [Module]}
+   [lux {"-" Module}
     [abstract
-     ["[0]" monad {"+" [Monad do]}]]
+     ["[0]" monad {"+" Monad do}]]
     [control
-     ["[0]" try {"+" [Try]}]
-     ["[0]" exception {"+" [exception:]}]
+     ["[0]" try {"+" Try}]
+     ["[0]" exception {"+" exception:}]
      [concurrency
-      ["[0]" async {"+" [Async]} ("[1]#[0]" monad)]]
+      ["[0]" async {"+" Async} ("[1]#[0]" monad)]]
      ["<>" parser
       ["<[0]>" binary]]]
     [data
-     [binary {"+" [Binary]}]
+     [binary {"+" Binary}]
      ["[0]" text
-      ["%" format {"+" [format]}]]
+      ["%" format {"+" format}]]
      [collection
-      ["[0]" dictionary {"+" [Dictionary]}]
+      ["[0]" dictionary {"+" Dictionary}]
       ["[0]" row]]
      [format
       ["[0]" tar]]]
@@ -23,11 +23,11 @@
      [compiler
       [meta
        [archive
-        [descriptor {"+" [Module]}]]]]]
+        [descriptor {"+" Module}]]]]]
     [world
      ["[0]" file]]]]
   [//
-   [cli {"+" [Library]}]])
+   [cli {"+" Library}]])
 
 (def: Action
   (type (All (_ a) (Async (Try a)))))
diff --git a/stdlib/source/program/compositor/static.lux b/stdlib/source/program/compositor/static.lux
index 44d5d8a18..b509d5108 100644
--- a/stdlib/source/program/compositor/static.lux
+++ b/stdlib/source/program/compositor/static.lux
@@ -1,9 +1,9 @@
 (.module:
   [library
    [lux "*"
-    [target {"+" [Target]}]
+    [target {"+" Target}]
     [world
-     [file {"+" [Path]}]]]])
+     [file {"+" Path}]]]])
 
 (type: .public Static
   (Record
-- 
cgit v1.2.3