diff options
Diffstat (limited to 'stdlib/source/program/aedifex/command')
| -rw-r--r-- | stdlib/source/program/aedifex/command/build.lux | 32 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/command/deploy.lux | 4 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/command/deps.lux | 4 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/command/install.lux | 4 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/command/pom.lux | 4 |
5 files changed, 24 insertions, 24 deletions
diff --git a/stdlib/source/program/aedifex/command/build.lux b/stdlib/source/program/aedifex/command/build.lux index e4de9ab0a..d3c5b17a0 100644 --- a/stdlib/source/program/aedifex/command/build.lux +++ b/stdlib/source/program/aedifex/command/build.lux @@ -16,7 +16,7 @@ ["." text ("#\." order) ["%" format (#+ format)]] [collection - ["." list ("#\." functor fold)] + ["." list ("#\." functor mix)] ["." dictionary (#+ Dictionary)] ["." set]]] [math @@ -159,21 +159,21 @@ (list.only (|>> (value@ #///dependency.type) (text\= ///artifact/type.lux_library) not)) - (list\fold (function (_ dependency uniques) - (let [artifact (value@ #///dependency.artifact dependency) - identity [(value@ #///artifact.group artifact) - (value@ #///artifact.name artifact)] - version (value@ #///artifact.version artifact)] - (case (dictionary.value identity uniques) - (#.Some [current_version current_path]) - (if (\ version_order < version current_version) - (dictionary.has identity [version dependency] uniques) - uniques) - - #.None - (dictionary.has identity [version dependency] uniques)))) - (: (Dictionary [Group Name] [Version Dependency]) - (dictionary.empty (product.hash text.hash text.hash)))) + (list\mix (function (_ dependency uniques) + (let [artifact (value@ #///dependency.artifact dependency) + identity [(value@ #///artifact.group artifact) + (value@ #///artifact.name artifact)] + version (value@ #///artifact.version artifact)] + (case (dictionary.value identity uniques) + (#.Some [current_version current_path]) + (if (\ version_order < version current_version) + (dictionary.has identity [version dependency] uniques) + uniques) + + #.None + (dictionary.has identity [version dependency] uniques)))) + (: (Dictionary [Group Name] [Version Dependency]) + (dictionary.empty (product.hash text.hash text.hash)))) dictionary.values (list\map (|>> product.right (..path fs home))))) diff --git a/stdlib/source/program/aedifex/command/deploy.lux b/stdlib/source/program/aedifex/command/deploy.lux index 38f975939..62ec8e985 100644 --- a/stdlib/source/program/aedifex/command/deploy.lux +++ b/stdlib/source/program/aedifex/command/deploy.lux @@ -69,8 +69,8 @@ repository [artifact ///artifact/type.lux_library] (let [pom_data (|> pom - (\ xml.codec encode) - (\ utf8.codec encode))] + (\ xml.codec encoded) + (\ utf8.codec encoded))] {#///package.origin (#///repository/origin.Remote "") #///package.library [library (///dependency/status.verified library)] diff --git a/stdlib/source/program/aedifex/command/deps.lux b/stdlib/source/program/aedifex/command/deps.lux index 3c8381e51..c1b0990f5 100644 --- a/stdlib/source/program/aedifex/command/deps.lux +++ b/stdlib/source/program/aedifex/command/deps.lux @@ -10,7 +10,7 @@ [data [collection ["." set (#+ Set)] - ["." list ("#\." fold)] + ["." list ("#\." mix)] ["." dictionary]] [text ["%" format]]] @@ -55,7 +55,7 @@ cache)] (do ///action.monad [cached (|> (dictionary.keys cache) - (list\fold dictionary.lacks resolution) + (list\mix dictionary.lacks resolution) (///dependency/deployment.all local)) _ (console.write_line (exception.report ["Local successes" (|> local_successes diff --git a/stdlib/source/program/aedifex/command/install.lux b/stdlib/source/program/aedifex/command/install.lux index f0677afc7..37a5c77b1 100644 --- a/stdlib/source/program/aedifex/command/install.lux +++ b/stdlib/source/program/aedifex/command/install.lux @@ -64,8 +64,8 @@ _ (///dependency/deployment.one repository [identity ///artifact/type.lux_library] (let [pom_data (|> pom - (\ xml.codec encode) - (\ utf8.codec encode))] + (\ xml.codec encoded) + (\ utf8.codec encoded))] {#///package.origin (#///origin.Local "") #///package.library (let [library (binary.result tar.writer package)] [library (///dependency/status.verified library)]) diff --git a/stdlib/source/program/aedifex/command/pom.lux b/stdlib/source/program/aedifex/command/pom.lux index 163fa87fa..c43982a98 100644 --- a/stdlib/source/program/aedifex/command/pom.lux +++ b/stdlib/source/program/aedifex/command/pom.lux @@ -29,8 +29,8 @@ (-> (Console Async) (file.System Async) (Command Any)) (do ///action.monad [content (|> (///pom.write profile) - (try\map (|>> (\ xml.codec encode) - (\ utf8.codec encode))) + (try\map (|>> (\ xml.codec encoded) + (\ utf8.codec encoded))) async\in) _ (\ fs write content ///pom.file)] (console.write_line ..success console))) |