From e5e4c2aff562e5c01fefb808d1d68a40f29c9cc5 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 8 Apr 2022 01:49:29 -0400
Subject: Can now deploy releases with Aedifex.

---
 stdlib/source/program/aedifex/command/deploy/snapshot.lux | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'stdlib/source/program/aedifex/command/deploy/snapshot.lux')

diff --git a/stdlib/source/program/aedifex/command/deploy/snapshot.lux b/stdlib/source/program/aedifex/command/deploy/snapshot.lux
index 9770965d9..fa69e8311 100644
--- a/stdlib/source/program/aedifex/command/deploy/snapshot.lux
+++ b/stdlib/source/program/aedifex/command/deploy/snapshot.lux
@@ -2,12 +2,13 @@
  [library
   [lux "*"
    [abstract
-    [monad {"+" do}]]
+    [monad {"+" do}]
+    [predicate {"+" Predicate}]]
    [control
     [concurrency
      ["[0]" async {"+" Async}]]]
    [data
-    [text
+    ["[0]" text
      [encoding
       ["[0]" utf8]]]
     [collection
@@ -37,6 +38,11 @@
   ["[1][0]" artifact {"+" Artifact}
    ["[1]/[0]" type]]])
 
+(def: .public snapshot?
+  (Predicate Artifact)
+  (|>> (the ////artifact.#version)
+       (text.contains? "-SNAPSHOT")))
+
 (def: .public (do! console remote fs artifact profile)
   (-> (Console Async) (Repository Async) (file.System Async) Artifact (Command Any))
   (do [! ////action.monad]
-- 
cgit v1.2.3