From c5b61d2f46ac19bf511197f3a537c4be0f47df33 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 27 Aug 2021 20:59:34 -0400
Subject: Updates to the Ruby compiler.

---
 stdlib/source/program/aedifex/command/auto.lux  | 2 +-
 stdlib/source/program/aedifex/command/build.lux | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

(limited to 'stdlib/source/program/aedifex/command')

diff --git a/stdlib/source/program/aedifex/command/auto.lux b/stdlib/source/program/aedifex/command/auto.lux
index 77a0c8714..a4f6e0fca 100644
--- a/stdlib/source/program/aedifex/command/auto.lux
+++ b/stdlib/source/program/aedifex/command/auto.lux
@@ -44,7 +44,7 @@
   (async.after delay (#try.Success [])))
 
 (def: .public (do! delay watcher command)
-  (All [a]
+  (All (_ a)
     (-> Nat (Watcher Async)
         (-> (Console Async) (Program Async) (file.System Async) (Shell Async) Resolution (Command [Exit a]))
         (-> (Console Async) (Program Async) (file.System Async) (Shell Async) Resolution (Command [Exit Any]))))
diff --git a/stdlib/source/program/aedifex/command/build.lux b/stdlib/source/program/aedifex/command/build.lux
index ff4ace158..421fd7086 100644
--- a/stdlib/source/program/aedifex/command/build.lux
+++ b/stdlib/source/program/aedifex/command/build.lux
@@ -110,7 +110,7 @@
       (exception.except ..no_available_compiler []))))
 
 (def: (path fs home dependency)
-  (All [!] (-> (file.System !) Path Dependency Path))
+  (All (_ !) (-> (file.System !) Path Dependency Path))
   (let [/ (\ fs separator)
         artifact (value@ #///dependency.artifact dependency)]
     (|> artifact
@@ -120,7 +120,7 @@
         (text.suffix (format "." (value@ #///dependency.type dependency))))))
 
 (def: (libraries fs home)
-  (All [!] (-> (file.System !) Path Resolution (List Path)))
+  (All (_ !) (-> (file.System !) Path Resolution (List Path)))
   (|>> dictionary.keys
        (list.only (|>> (value@ #///dependency.type)
                        (text\= ///artifact/type.lux_library)))
@@ -155,7 +155,7 @@
         false))))
 
 (def: .public (host_dependencies fs home)
-  (All [!] (-> (file.System !) Path Resolution (List Path)))
+  (All (_ !) (-> (file.System !) Path Resolution (List Path)))
   (|>> dictionary.keys
        (list.only (|>> (value@ #///dependency.type)
                        (text\= ///artifact/type.lux_library)
-- 
cgit v1.2.3