From 4ca397765805eda5ddee393901ed3a02001a960a Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 25 Dec 2020 09:22:38 -0400
Subject: Replaced kebab-case with snake_case for naming convention.

---
 stdlib/source/program/aedifex/command/deploy.lux | 38 ++++++++++++------------
 1 file changed, 19 insertions(+), 19 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/command/deploy.lux b/stdlib/source/program/aedifex/command/deploy.lux
index 5763c1ff5..1f84567f0 100644
--- a/stdlib/source/program/aedifex/command/deploy.lux
+++ b/stdlib/source/program/aedifex/command/deploy.lux
@@ -47,7 +47,7 @@
 
 (def: epoch
   Instant
-  (instant.from-millis +0))
+  (instant.from_millis +0))
 
 (template [<name> <type> <uri> <parser> <default>]
   [(def: (<name> repository artifact)
@@ -65,37 +65,37 @@
          (#try.Failure error)
          (wrap (#try.Success <default>)))))]
 
-  [read-project-metadata ///metadata/artifact.Metadata ///metadata.project ///metadata/artifact.parser
+  [read_project_metadata ///metadata/artifact.Metadata ///metadata.project ///metadata/artifact.parser
    (let [(^slots [#///artifact.group #///artifact.name #///artifact.version]) artifact]
      {#///metadata/artifact.group group
       #///metadata/artifact.name name
       #///metadata/artifact.versions (list)
-      #///metadata/artifact.last-updated ..epoch})]
-  [read-version-metadata ///metadata/snapshot.Metadata ///metadata.version ///metadata/snapshot.parser
+      #///metadata/artifact.last_updated ..epoch})]
+  [read_version_metadata ///metadata/snapshot.Metadata ///metadata.version ///metadata/snapshot.parser
    (let [(^slots [#///artifact.group #///artifact.name #///artifact.version]) artifact]
      {#///metadata/snapshot.group group
       #///metadata/snapshot.name name
       #///metadata/snapshot.version version
-      #///metadata/snapshot.versioning {#///metadata/snapshot.time-stamp ..epoch
+      #///metadata/snapshot.versioning {#///metadata/snapshot.time_stamp ..epoch
                                         #///metadata/snapshot.build 0
                                         #///metadata/snapshot.snapshot (list)}})]
   )
 
-(def: snapshot-artifacts
+(def: snapshot_artifacts
   (List ///artifact/type.Type)
   (list ///artifact/type.pom
         (format ///artifact/type.pom ///artifact/extension.sha-1)
         (format ///artifact/type.pom ///artifact/extension.md5)
-        ///artifact/type.lux-library
-        (format ///artifact/type.lux-library ///artifact/extension.sha-1)
-        (format ///artifact/type.lux-library ///artifact/extension.md5)))
+        ///artifact/type.lux_library
+        (format ///artifact/type.lux_library ///artifact/extension.sha-1)
+        (format ///artifact/type.lux_library ///artifact/extension.md5)))
 
 (def: #export (do! console repository fs artifact profile)
   (-> (Console Promise) (Repository Promise) (file.System Promise) Artifact (Command Any))
   (let [deploy! (: (-> Extension Binary (Action Any))
                    (|>> (///repository.uri artifact)
                         (\ repository upload)))
-        fully-deploy! (: (-> Extension Binary (Action Any))
+        fully_deploy! (: (-> Extension Binary (Action Any))
                          (function (_ extension payload)
                            (do ///action.monad
                              [_ (deploy! extension payload)
@@ -108,31 +108,31 @@
     (do promise.monad
       [now (promise.future instant.now)]
       (do {! ///action.monad}
-        [project (..read-project-metadata repository artifact)
-         snapshot (..read-version-metadata repository artifact)
+        [project (..read_project_metadata repository artifact)
+         snapshot (..read_version_metadata repository artifact)
          pom (\ ! map (|>> (\ xml.codec encode) (\ encoding.utf8 encode))
                 (promise\wrap (///pom.write profile)))
          library (|> profile
                      (get@ #/.sources)
-                     set.to-list
+                     set.to_list
                      (export.library fs)
                      (\ ! map (binary.run tar.writer)))
 
-         _ (fully-deploy! ///artifact/extension.pom pom)
-         _ (fully-deploy! ///artifact/extension.lux-library library)
+         _ (fully_deploy! ///artifact/extension.pom pom)
+         _ (fully_deploy! ///artifact/extension.lux_library library)
          _ (|> snapshot
-               (set@ [#///metadata/snapshot.versioning #///metadata/snapshot.time-stamp] now)
+               (set@ [#///metadata/snapshot.versioning #///metadata/snapshot.time_stamp] now)
                (update@ [#///metadata/snapshot.versioning #///metadata/snapshot.build] inc)
-               (set@ [#///metadata/snapshot.versioning #///metadata/snapshot.snapshot] ..snapshot-artifacts)
+               (set@ [#///metadata/snapshot.versioning #///metadata/snapshot.snapshot] ..snapshot_artifacts)
                ///metadata/snapshot.write
                (\ xml.codec encode)
                (\ encoding.utf8 encode)
                (\ repository upload (///metadata.version artifact)))
          _ (|> project
                (set@ #///metadata/artifact.versions (list version))
-               (set@ #///metadata/artifact.last-updated now)
+               (set@ #///metadata/artifact.last_updated now)
                ///metadata/artifact.write
                (\ xml.codec encode)
                (\ encoding.utf8 encode)
                (\ repository upload (///metadata.project artifact)))]
-        (console.write-line //clean.success console)))))
+        (console.write_line //clean.success console)))))
-- 
cgit v1.2.3