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.lux | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

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

diff --git a/stdlib/source/program/aedifex.lux b/stdlib/source/program/aedifex.lux
index 4e78183f1..67c4e89f3 100644
--- a/stdlib/source/program/aedifex.lux
+++ b/stdlib/source/program/aedifex.lux
@@ -62,10 +62,10 @@
 (def: repositories
   (-> /.Profile (List (Repository Promise)))
   (|>> (get@ #/.repositories)
-       set.to-list
+       set.to_list
        (list\map (|>> (/repository.remote #.None) /repository.async))))
 
-(def: (with-dependencies program console command profile)
+(def: (with_dependencies program console command profile)
   (All [a]
     (-> (Program Promise) (Console Promise)
         (-> (Console Promise) (Program Promise) (file.System Promise) (Shell Promise) Resolution (Command a))
@@ -74,7 +74,7 @@
     [resolution (/command/deps.do! program console (file.async file.default) (..repositories profile) profile)]
     ((command console program (file.async file.default) (shell.async shell.default) resolution) profile)))
 
-(exception: (cannot-find-repository {repository Text}
+(exception: (cannot_find_repository {repository Text}
                                     {options (Dictionary Text Address)})
   (exception.report
    ["Repository" (%.text repository)]
@@ -146,7 +146,7 @@
                 (#/cli.Deploy repository identity)
                 (..command
                  (case [(get@ #/.identity profile)
-                        (dictionary.get repository (get@ #/.deploy-repositories profile))]
+                        (dictionary.get repository (get@ #/.deploy_repositories profile))]
                    [(#.Some artifact) (#.Some repository)]
                    (/command/deploy.do! console
                                         (/repository.async (/repository.remote (#.Some identity) repository))
@@ -155,10 +155,10 @@
                                         profile)
 
                    [#.None _]
-                   (promise\wrap (exception.throw /.no-identity []))
+                   (promise\wrap (exception.throw /.no_identity []))
 
                    [_ #.None]
-                   (promise\wrap (exception.throw ..cannot-find-repository [repository (get@ #/.deploy-repositories profile)]))))
+                   (promise\wrap (exception.throw ..cannot_find_repository [repository (get@ #/.deploy_repositories profile)]))))
                 
                 #/cli.Dependencies
                 (..command
@@ -167,9 +167,9 @@
                 (#/cli.Compilation compilation)
                 (case compilation
                   #/cli.Build (..command
-                               (..with-dependencies program console /command/build.do! profile))
+                               (..with_dependencies program console /command/build.do! profile))
                   #/cli.Test (..command
-                              (..with-dependencies program console /command/test.do! profile)))
+                              (..with_dependencies program console /command/test.do! profile)))
 
                 (#/cli.Auto auto)
                 (do !
@@ -181,6 +181,6 @@
                     (#try.Success watcher)
                     (..command
                      (case auto
-                       #/cli.Build (..with-dependencies program console (/command/auto.do! watcher /command/build.do!) profile)
-                       #/cli.Test (..with-dependencies program console (/command/auto.do! watcher /command/test.do!) profile)))))))
+                       #/cli.Build (..with_dependencies program console (/command/auto.do! watcher /command/build.do!) profile)
+                       #/cli.Test (..with_dependencies program console (/command/auto.do! watcher /command/test.do!) profile)))))))
             ))))))
-- 
cgit v1.2.3