1 files changed, 9 insertions, 9 deletions
diff --git a/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux b/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux
index efb13c9e8..25b9ec0b4 100644
--- a/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux
+++ b/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux
@@ -60,31 +60,31 @@
    ["Error" error]))
 
 (def: (archive fs static)
-  (All [!] (-> (file.System !) Static file.Path))
+  (All (_ !) (-> (file.System !) Static file.Path))
   (format (value@ #static.target static)
           (\ fs separator)
           (value@ #static.host static)))
 
 (def: (unversioned_lux_archive fs static)
-  (All [!] (-> (file.System !) Static file.Path))
+  (All (_ !) (-> (file.System !) Static file.Path))
   (format (..archive fs static)
           (\ fs separator)
           //.lux_context))
 
 (def: (versioned_lux_archive fs static)
-  (All [!] (-> (file.System !) Static file.Path))
+  (All (_ !) (-> (file.System !) Static file.Path))
   (format (..unversioned_lux_archive fs static)
           (\ fs separator)
           (%.nat version.version)))
 
 (def: (module fs static module_id)
-  (All [!] (-> (file.System !) Static archive.ID file.Path))
+  (All (_ !) (-> (file.System !) Static archive.ID file.Path))
   (format (..versioned_lux_archive fs static)
           (\ fs separator)
           (%.nat module_id)))
 
 (def: .public (artifact fs static module_id artifact_id)
-  (All [!] (-> (file.System !) Static archive.ID artifact.ID file.Path))
+  (All (_ !) (-> (file.System !) Static archive.ID artifact.ID file.Path))
   (format (..module fs static module_id)
           (\ fs separator)
           (%.nat artifact_id)
@@ -211,7 +211,7 @@
    (dictionary.empty text.hash)])
 
 (def: (loaded_document extension host module_id expected actual document)
-  (All [expression directive]
+  (All (_ expression directive)
     (-> Text (generation.Host expression directive) archive.ID (Row Artifact) (Dictionary Text Binary) (Document .Module)
         (Try [(Document .Module) Bundles Output])))
   (do {! try.monad}
@@ -338,7 +338,7 @@
          bundles])))
 
 (def: (load_definitions fs static module_id host_environment descriptor document)
-  (All [expression directive]
+  (All (_ expression directive)
     (-> (file.System Async) Static archive.ID (generation.Host expression directive)
         Descriptor (Document .Module)
         (Async (Try [[Descriptor (Document .Module) Output]
@@ -403,7 +403,7 @@
   "(Lux Caching System)")
 
 (def: (load_every_reserved_module host_environment fs static import contexts archive)
-  (All [expression directive]
+  (All (_ expression directive)
     (-> (generation.Host expression directive) (file.System Async) Static Import (List Context) Archive
         (Async (Try [Archive .Lux Bundles]))))
   (do {! (try.with async.monad)}
@@ -460,7 +460,7 @@
                       loaded_caches)])))))
 
 (def: .public (thaw host_environment fs static import contexts)
-  (All [expression directive]
+  (All (_ expression directive)
     (-> (generation.Host expression directive) (file.System Async) Static Import (List Context)
         (Async (Try [Archive .Lux Bundles]))))
   (do async.monad