From 34e310622bdeb1d0588c0664c0e78cbaa84f837c Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Wed, 2 Dec 2020 06:42:20 -0400 Subject: Re-named "::" and ":::" macros to "\" and "\\", to be consistent with the convention that only macros that deal with types may start with a colon. --- stdlib/source/program/aedifex/command/auto.lux | 16 ++++++++-------- stdlib/source/program/aedifex/command/build.lux | 6 +++--- stdlib/source/program/aedifex/command/clean.lux | 12 ++++++------ stdlib/source/program/aedifex/command/deploy.lux | 6 +++--- stdlib/source/program/aedifex/command/install.lux | 10 +++++----- stdlib/source/program/aedifex/command/pom.lux | 4 ++-- stdlib/source/program/aedifex/command/test.lux | 4 ++-- 7 files changed, 29 insertions(+), 29 deletions(-) (limited to 'stdlib/source/program/aedifex/command') diff --git a/stdlib/source/program/aedifex/command/auto.lux b/stdlib/source/program/aedifex/command/auto.lux index f7ec7a315..c2df31df5 100644 --- a/stdlib/source/program/aedifex/command/auto.lux +++ b/stdlib/source/program/aedifex/command/auto.lux @@ -28,15 +28,15 @@ (def: (targets fs path) (-> (file.System Promise) Path (Promise (List Path))) (do {! promise.monad} - [?root (!.use (:: fs directory) [path])] + [?root (!.use (\ fs directory) [path])] (case ?root (#try.Success root) (loop [root root] (do ! - [subs (:: ! map (|>> (try.default (list))) - (!.use (:: root directories) []))] - (:: ! map (|>> list.concat (list& (!.use (:: root scope) []))) - (monad.map ! recur subs)))) + [subs (\ ! map (|>> (try.default (list))) + (!.use (\ root directories) []))] + (\ ! map (|>> list.concat (list& (!.use (\ root scope) []))) + (monad.map ! recur subs)))) (#try.Failure error) (wrap (list))))) @@ -58,14 +58,14 @@ (get@ #///.sources) set.to-list (monad.map ! (..targets fs)) - (:: ! map list.concat))] + (\ ! map list.concat))] (do {! ///action.monad} - [_ (monad.map ! (:: watcher start watch.all) targets) + [_ (monad.map ! (\ watcher start watch.all) targets) _ ] (loop [_ []] (do ! [_ (..pause []) - events (:: watcher poll []) + events (\ watcher poll []) _ (case events (#.Cons _) (do ! diff --git a/stdlib/source/program/aedifex/command/build.lux b/stdlib/source/program/aedifex/command/build.lux index 30206095e..85210fd36 100644 --- a/stdlib/source/program/aedifex/command/build.lux +++ b/stdlib/source/program/aedifex/command/build.lux @@ -138,10 +138,10 @@ (#JS artifact) [(///runtime.node (///local.path fs artifact)) "program.js"])] [(format compiler " build") output]) - / (:: fs separator) + / (\ fs separator) cache-directory (format working-directory / target)] #let [_ (log! "[BUILD STARTED]")] - process (!.use (:: shell execute) + process (!.use (\ shell execute) [environment working-directory command @@ -149,7 +149,7 @@ (..plural "--source" (set.to-list (get@ #///.sources profile))) (..singular "--target" cache-directory) (..singular "--module" program)))]) - exit (!.use (:: process await) []) + exit (!.use (\ process await) []) #let [_ (log! (if (i.= shell.normal exit) "[BUILD ENDED]" "[BUILD FAILED]"))]] diff --git a/stdlib/source/program/aedifex/command/clean.lux b/stdlib/source/program/aedifex/command/clean.lux index f4f5e1f9e..618125a89 100644 --- a/stdlib/source/program/aedifex/command/clean.lux +++ b/stdlib/source/program/aedifex/command/clean.lux @@ -19,9 +19,9 @@ (-> (Directory Promise) (Promise (Try Any))) (do {! ///action.monad} [nodes (: (Promise (Try (List (File Promise)))) - (!.use (:: root files) [])) + (!.use (\ root files) [])) _ (monad.map ! (function (_ node) - (!.use (:: node delete) [])) + (!.use (\ node delete) [])) nodes)] (wrap []))) @@ -31,17 +31,17 @@ (#.Some target) (do {! ///action.monad} [target (: (Promise (Try (Directory Promise))) - (!.use (:: fs directory) target)) + (!.use (\ fs directory) target)) _ (loop [root target] (do ! [_ (..clean-files! root) subs (: (Promise (Try (List (Directory Promise)))) - (!.use (:: root directories) [])) + (!.use (\ root directories) [])) _ (monad.map ! recur subs)] - (!.use (:: root discard) [])))] + (!.use (\ root discard) [])))] (exec (log! "No 'target' defined for clean-up.") (wrap []))) #.None (exec (log! "No 'target' defined for clean-up.") - (:: ///action.monad wrap [])))) + (\ ///action.monad wrap [])))) diff --git a/stdlib/source/program/aedifex/command/deploy.lux b/stdlib/source/program/aedifex/command/deploy.lux index 839bc7906..1f5ccc441 100644 --- a/stdlib/source/program/aedifex/command/deploy.lux +++ b/stdlib/source/program/aedifex/command/deploy.lux @@ -33,15 +33,15 @@ (def: #export (do! repository fs identity artifact profile) (-> (Repository Promise) (file.System Promise) Identity Artifact (Command Any)) (let [deploy! (: (-> Extension Binary (Action Any)) - (:: repository upload identity artifact))] + (\ repository upload identity artifact))] (do {! ///action.monad} [library (|> profile (get@ #/.sources) set.to-list (export.library fs) - (:: ! map (binary.run tar.writer))) + (\ ! map (binary.run tar.writer))) pom (promise\wrap (///pom.write profile)) - _ (deploy! ///artifact/extension.pom (|> pom (:: xml.codec encode) encoding.to-utf8)) + _ (deploy! ///artifact/extension.pom (|> pom (\ xml.codec encode) encoding.to-utf8)) _ (deploy! ///artifact/extension.lux-library library) _ (deploy! ///artifact/extension.sha-1 (///hash.data (///hash.sha-1 library))) _ (deploy! ///artifact/extension.md5 (///hash.data (///hash.md5 library))) diff --git a/stdlib/source/program/aedifex/command/install.lux b/stdlib/source/program/aedifex/command/install.lux index 818283cc5..b152bc66c 100644 --- a/stdlib/source/program/aedifex/command/install.lux +++ b/stdlib/source/program/aedifex/command/install.lux @@ -39,7 +39,7 @@ (do (try.with promise.monad) [file (: (Promise (Try (File Promise))) (file.get-file promise.monad system file))] - (!.use (:: file over-write) [content]))) + (!.use (\ file over-write) [content]))) (def: #export (do! system profile) (-> (file.System Promise) (Command Any)) @@ -49,14 +49,14 @@ [package (export.library system (set.to-list (get@ #/.sources profile))) repository (: (Promise (Try Path)) (file.make-directories promise.monad system (///local.path system identity))) - #let [artifact-name (format repository (:: system separator) (///artifact.identity 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)) - pom (:: promise.monad wrap (///pom.write profile)) - _ (..save! system (|> pom (:: xml.codec encode) encoding.to-utf8) + pom (\ promise.monad wrap (///pom.write profile)) + _ (..save! system (|> pom (\ xml.codec encode) encoding.to-utf8) (format artifact-name ///artifact/extension.pom)) #let [_ (log! "Successfully installed locally!")]] (wrap [])) _ - (:: promise.monad wrap (exception.throw /.no-identity [])))) + (\ promise.monad wrap (exception.throw /.no-identity [])))) diff --git a/stdlib/source/program/aedifex/command/pom.lux b/stdlib/source/program/aedifex/command/pom.lux index 695a7839f..28bd23921 100644 --- a/stdlib/source/program/aedifex/command/pom.lux +++ b/stdlib/source/program/aedifex/command/pom.lux @@ -28,8 +28,8 @@ file (: (Promise (Try (File Promise))) (file.get-file promise.monad fs ///pom.file)) outcome (|> pom - (:: xml.codec encode) + (\ xml.codec encode) encoding.to-utf8 - (!.use (:: file over-write))) + (!.use (\ file over-write))) #let [_ (log! "Successfully wrote POM file!")]] (wrap ///pom.file))) diff --git a/stdlib/source/program/aedifex/command/test.lux b/stdlib/source/program/aedifex/command/test.lux index f4da76ac4..5c205b7b8 100644 --- a/stdlib/source/program/aedifex/command/test.lux +++ b/stdlib/source/program/aedifex/command/test.lux @@ -31,14 +31,14 @@ [[compiler program] (//build.do! environment fs shell resolution profile) working-directory (promise\wrap (//build.working-directory environment)) #let [_ (log! "[TEST STARTED]")] - process (!.use (:: shell execute) + process (!.use (\ shell execute) [environment working-directory (case compiler (#//build.JVM artifact) (///runtime.java program) (#//build.JS artifact) (///runtime.node program)) (list)]) - exit (!.use (:: process await) []) + exit (!.use (\ process await) []) #let [_ (log! (if (i.= shell.normal exit) "[TEST ENDED]" "[TEST FAILED]"))]] -- cgit v1.2.3