diff options
| author | Eduardo Julian | 2021-08-24 05:23:45 -0400 | 
|---|---|---|
| committer | Eduardo Julian | 2021-08-24 05:23:45 -0400 | 
| commit | 36303d6cb2ce3ab9e36d045b9516c997bd461862 (patch) | |
| tree | b9d2f1495143054d61d9af129f36833624db9dac /stdlib/source/program/aedifex/dependency/resolution.lux | |
| parent | ec1f31b5a1492d5e0ab260397291d4449483bbd9 (diff) | |
Outsourced the syntax for labelled type definitions to macros.
Diffstat (limited to 'stdlib/source/program/aedifex/dependency/resolution.lux')
| -rw-r--r-- | stdlib/source/program/aedifex/dependency/resolution.lux | 16 | 
1 files changed, 8 insertions, 8 deletions
| diff --git a/stdlib/source/program/aedifex/dependency/resolution.lux b/stdlib/source/program/aedifex/dependency/resolution.lux index 50415b61f..8de6d2423 100644 --- a/stdlib/source/program/aedifex/dependency/resolution.lux +++ b/stdlib/source/program/aedifex/dependency/resolution.lux @@ -84,10 +84,10 @@      (case ?actual        (#try.Success actual)        (in (do {! try.monad} -            [output (\ ! map (for {@.old (|>> (:as java/lang/String) -                                              java/lang/String::trim -                                              (:as Text)) -                                   @.jvm (|>> java/lang/String::trim)}) +            [output (\ ! each (for {@.old (|>> (:as java/lang/String) +                                               java/lang/String::trim +                                               (:as Text)) +                                    @.jvm (|>> java/lang/String::trim)})                         (\ utf8.codec decoded actual))               actual (|> output                          (text.all_split_by " ") @@ -234,15 +234,15 @@                (do !                  [.let [sub_dependencies (|> package                                              ///package.dependencies -                                            (try\map set.list) +                                            (try\each set.list)                                              (try.else (list)))                         ... For security reasons, it's not a good idea to allow dependencies to introduce repositories.                         ... package_repositories (|> package                         ...                          ///package.repositories -                       ...                          (try\map set.list) +                       ...                          (try\each set.list)                         ...                          (try.else (list)) -                       ...                          (list\map new_repository)) -                       ... sub_repositories (list\compose repositories package_repositories) +                       ...                          (list\each new_repository)) +                       ... sub_repositories (list\composite repositories package_repositories)                         sub_repositories repositories]                   [successes failures resolution] (recur sub_repositories                                                          (#.Item head successes) | 
