diff options
Diffstat (limited to 'stdlib/source/program/aedifex/command/build.lux')
| -rw-r--r-- | stdlib/source/program/aedifex/command/build.lux | 32 |
1 files changed, 16 insertions, 16 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))))) |