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/install.lux | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/command/install.lux b/stdlib/source/program/aedifex/command/install.lux
index 67dc242ac..033b41b40 100644
--- a/stdlib/source/program/aedifex/command/install.lux
+++ b/stdlib/source/program/aedifex/command/install.lux
@@ -42,8 +42,8 @@
   (-> (file.System Promise) Binary Path (Promise (Try Any)))
   (do (try.with promise.monad)
     [file (: (Promise (Try (File Promise)))
-             (file.get-file promise.monad system file))]
-    (!.use (\ file over-write) [content])))
+             (file.get_file promise.monad system file))]
+    (!.use (\ file over_write) [content])))
 
 (def: #export failure
   "Failure: No 'identity' defined for the project.")
@@ -55,16 +55,16 @@
     (do promise.monad
       [home (\ program home [])]
       (do ///action.monad
-        [package (export.library system (set.to-list (get@ #/.sources profile)))
+        [package (export.library system (set.to_list (get@ #/.sources profile)))
          repository (: (Promise (Try Path))
-                       (file.make-directories promise.monad system (///local.path system home identity)))
-         #let [artifact-name (format repository (\ system separator) (///artifact.identity identity))]
+                       (file.make_directories promise.monad system (///local.path system home identity)))
+         #let [artifact_name (format repository (\ system separator) (///artifact.identity identity))]
          _ (..save! system (binary.run tar.writer package)
-                    (format artifact-name ///artifact/extension.lux-library))
+                    (format artifact_name ///artifact/extension.lux_library))
          pom (\ promise.monad wrap (///pom.write profile))
          _ (..save! system (|> pom (\ xml.codec encode) (\ encoding.utf8 encode))
-                    (format artifact-name ///artifact/extension.pom))]
-        (console.write-line //clean.success console)))
+                    (format artifact_name ///artifact/extension.pom))]
+        (console.write_line //clean.success console)))
 
     _
-    (console.write-line ..failure console)))
+    (console.write_line ..failure console)))
-- 
cgit v1.2.3