From 9e7ddacf853efd7a18c1911d2f287d483b083229 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 3 Jul 2022 00:35:32 -0400
Subject: Added a new custom type for pattern-matching macros.

---
 stdlib/source/program/aedifex.lux                   | 2 +-
 stdlib/source/program/aedifex/command/build.lux     | 2 +-
 stdlib/source/program/aedifex/metadata/snapshot.lux | 2 +-
 stdlib/source/program/aedifex/repository/remote.lux | 4 ++--
 4 files changed, 5 insertions(+), 5 deletions(-)

(limited to 'stdlib/source/program')

diff --git a/stdlib/source/program/aedifex.lux b/stdlib/source/program/aedifex.lux
index 044ca9e4d..319ed87ad 100644
--- a/stdlib/source/program/aedifex.lux
+++ b/stdlib/source/program/aedifex.lux
@@ -87,7 +87,7 @@
                                    profile)
      [exit_code output] ((command console program (file.async file.default) (shell.async shell.default) resolution) profile)
      _ (case exit_code
-         (pattern (static shell.normal))
+         (static shell.normal)
          (in [])
 
          _
diff --git a/stdlib/source/program/aedifex/command/build.lux b/stdlib/source/program/aedifex/command/build.lux
index 38738e400..b20dd16a6 100644
--- a/stdlib/source/program/aedifex/command/build.lux
+++ b/stdlib/source/program/aedifex/command/build.lux
@@ -105,7 +105,7 @@
       {.#Some dependency}
       (case lux_name
         (^.with_template [<tag> <name>]
-          [(pattern (static <name>))
+          [(static <name>)
            {try.#Success [(..remove_dependency dependency resolution)
                           {<tag> dependency}]}])
         ([#JVM ..jvm_lux_name]
diff --git a/stdlib/source/program/aedifex/metadata/snapshot.lux b/stdlib/source/program/aedifex/metadata/snapshot.lux
index c524ddefb..78b0e8c55 100644
--- a/stdlib/source/program/aedifex/metadata/snapshot.lux
+++ b/stdlib/source/program/aedifex/metadata/snapshot.lux
@@ -99,7 +99,7 @@
                                        (is (-> (List ///artifact/snapshot/version.Version)
                                                (List ///artifact/snapshot/version.Version))
                                            (|>> (pipe.case
-                                                  (pattern (list))
+                                                  (list)
                                                   (list <default_version>)
 
                                                   versions
diff --git a/stdlib/source/program/aedifex/repository/remote.lux b/stdlib/source/program/aedifex/repository/remote.lux
index 75d9a3468..9d5a0f134 100644
--- a/stdlib/source/program/aedifex/repository/remote.lux
+++ b/stdlib/source/program/aedifex/repository/remote.lux
@@ -69,7 +69,7 @@
                                        {.#None}
                                        http))]
        (case status
-         (pattern (static http/status.ok))
+         (static http/status.ok)
          (at ! each product.right ((the @http.#body message) {.#None}))
          
          _
@@ -92,7 +92,7 @@
                                        http))
         _ ((the @http.#body message) {.#Some 0})]
        (case status
-         (pattern (static http/status.created))
+         (static http/status.created)
          (in [])
          
          _
-- 
cgit v1.2.3