diff options
author | Eduardo Julian | 2022-07-06 16:25:43 -0400 |
---|---|---|
committer | Eduardo Julian | 2022-07-06 16:25:43 -0400 |
commit | 5270f301eba5237feebc8eca14aee6b7a992a819 (patch) | |
tree | a1adb545189f4db807d712a1fcc7d20048c11222 /stdlib/source/program/aedifex | |
parent | 0c32c7f03ad1f8f0db54b623dc407713bbf8cacd (diff) |
Made exception.report a function.
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/program/aedifex.lux | 8 | ||||
-rw-r--r-- | stdlib/source/program/aedifex/artifact/time/date.lux | 6 | ||||
-rw-r--r-- | stdlib/source/program/aedifex/command/deps.lux | 30 | ||||
-rw-r--r-- | stdlib/source/program/aedifex/dependency/resolution.lux | 10 | ||||
-rw-r--r-- | stdlib/source/program/aedifex/hash.lux | 12 | ||||
-rw-r--r-- | stdlib/source/program/aedifex/project.lux | 6 | ||||
-rw-r--r-- | stdlib/source/program/aedifex/repository/remote.lux | 4 |
7 files changed, 38 insertions, 38 deletions
diff --git a/stdlib/source/program/aedifex.lux b/stdlib/source/program/aedifex.lux index 6e6d9abfb..870ae6dd3 100644 --- a/stdlib/source/program/aedifex.lux +++ b/stdlib/source/program/aedifex.lux @@ -99,10 +99,10 @@ (exception (cannot_find_repository [repository Text options (Dictionary Text Address)]) (exception.report - "Repository" (%.text repository) - "Options" (exception.listing (function (_ [name repo]) - (format (%.text name) " := " (%.text repo))) - (dictionary.entries options)))) + (list ["Repository" (%.text repository)] + ["Options" (exception.listing (function (_ [name repo]) + (format (%.text name) " := " (%.text repo))) + (dictionary.entries options))]))) (def succeed! (IO Any) diff --git a/stdlib/source/program/aedifex/artifact/time/date.lux b/stdlib/source/program/aedifex/artifact/time/date.lux index 02b0d97f2..5cdbd0d1d 100644 --- a/stdlib/source/program/aedifex/artifact/time/date.lux +++ b/stdlib/source/program/aedifex/artifact/time/date.lux @@ -34,9 +34,9 @@ (exception .public (year_is_out_of_range [year year.Year]) (exception.report - "Minimum" (%.int ..min_year) - "Maximum" (%.int ..max_year) - "Year" (%.int (year.value year)))) + (list ["Minimum" (%.int ..min_year)] + ["Maximum" (%.int ..max_year)] + ["Year" (%.int (year.value year))]))) (primitive .public Date date.Date diff --git a/stdlib/source/program/aedifex/command/deps.lux b/stdlib/source/program/aedifex/command/deps.lux index f0a7b7a9e..4ffc6e641 100644 --- a/stdlib/source/program/aedifex/command/deps.lux +++ b/stdlib/source/program/aedifex/command/deps.lux @@ -58,20 +58,20 @@ (list#mix dictionary.lacks resolution) (///dependency/deployment.all local)) _ (console.write_line (exception.report - "Local successes" (|> local_successes - (list.sorted (at ///dependency.order <)) - (exception.listing ..format)) - "Local failures" (|> local_failures - (list.sorted (at ///dependency.order <)) - (exception.listing ..format)) - "Remote successes" (|> remote_successes - (set.of_list ///dependency.hash) - (set.difference (set.of_list ///dependency.hash local_successes)) - set.list - (list.sorted (at ///dependency.order <)) - (exception.listing ..format)) - "Remote failures" (|> remote_failures - (list.sorted (at ///dependency.order <)) - (exception.listing ..format))) + (list ["Local successes" (|> local_successes + (list.sorted (at ///dependency.order <)) + (exception.listing ..format))] + ["Local failures" (|> local_failures + (list.sorted (at ///dependency.order <)) + (exception.listing ..format))] + ["Remote successes" (|> remote_successes + (set.of_list ///dependency.hash) + (set.difference (set.of_list ///dependency.hash local_successes)) + set.list + (list.sorted (at ///dependency.order <)) + (exception.listing ..format))] + ["Remote failures" (|> remote_failures + (list.sorted (at ///dependency.order <)) + (exception.listing ..format))])) console)] (in resolution)))) diff --git a/stdlib/source/program/aedifex/dependency/resolution.lux b/stdlib/source/program/aedifex/dependency/resolution.lux index 2d48fe6b1..7cabf5b88 100644 --- a/stdlib/source/program/aedifex/dependency/resolution.lux +++ b/stdlib/source/program/aedifex/dependency/resolution.lux @@ -63,9 +63,9 @@ extension Extension hash Text]) (exception.report - "Artifact" (///artifact.format artifact) - "Extension" (%.text extension) - "Hash" (%.text hash)))] + (list ["Artifact" (///artifact.format artifact)] + ["Extension" (%.text extension)] + ["Hash" (%.text hash)])))] [sha-1_does_not_match] [md5_does_not_match] @@ -157,8 +157,8 @@ (exception .public (cannot_resolve [dependency Dependency]) (exception.report - "Artifact" (%.text (///artifact.format (the //.#artifact dependency))) - "Type" (%.text (the //.#type dependency)))) + (list ["Artifact" (%.text (///artifact.format (the //.#artifact dependency)))] + ["Type" (%.text (the //.#type dependency))]))) (with_template [<sigil> <name> <doing> <at>] [(def (<name> console repository artifact) diff --git a/stdlib/source/program/aedifex/hash.lux b/stdlib/source/program/aedifex/hash.lux index 1c853512c..b292f004b 100644 --- a/stdlib/source/program/aedifex/hash.lux +++ b/stdlib/source/program/aedifex/hash.lux @@ -84,16 +84,16 @@ (exception .public (not_a_hash [size Nat value Text]) (exception.report - "Pseudo hash" (%.text value) - "Expected size" (%.nat size) - "Actual size" (%.nat (text.size value)))) + (list ["Pseudo hash" (%.text value)] + ["Expected size" (%.nat size)] + ["Actual size" (%.nat (text.size value))]))) (with_template [<name> <size>] [(exception .public (<name> [data Binary]) (exception.report - "Pseudo hash" (%.text (..encoded data)) - "Expected size" (%.nat <size>) - "Actual size" (%.nat (binary.size data))))] + (list ["Pseudo hash" (%.text (..encoded data))] + ["Expected size" (%.nat <size>)] + ["Actual size" (%.nat (binary.size data))])))] [not_a_sha-1 ..sha-1::size] [not_a_md5 ..md5::size] diff --git a/stdlib/source/program/aedifex/project.lux b/stdlib/source/program/aedifex/project.lux index 7be915cb1..d94a31b48 100644 --- a/stdlib/source/program/aedifex/project.lux +++ b/stdlib/source/program/aedifex/project.lux @@ -43,13 +43,13 @@ (exception .public (unknown_profile [name Name]) (exception.report - "Name" (%.text name))) + (list ["Name" (%.text name)]))) (exception .public (circular_dependency [dependee Name dependent Name]) (exception.report - "Dependent" (%.text dependent) - "Dependee" (%.text dependee))) + (list ["Dependent" (%.text dependent)] + ["Dependee" (%.text dependee)]))) (def (profile' lineage project name) (-> (Set Name) Project Name (Try Profile)) diff --git a/stdlib/source/program/aedifex/repository/remote.lux b/stdlib/source/program/aedifex/repository/remote.lux index 2cbeae80e..b5b201093 100644 --- a/stdlib/source/program/aedifex/repository/remote.lux +++ b/stdlib/source/program/aedifex/repository/remote.lux @@ -37,8 +37,8 @@ [(exception .public (<name> [url URL status Nat]) (exception.report - "URL" (%.text url) - "Status Code" (%.nat status)))] + (list ["URL" (%.text url)] + ["Status Code" (%.nat status)])))] [download_failure] [upload_failure] |