diff options
Diffstat (limited to 'stdlib/source/library/lux/control/exception.lux')
| -rw-r--r-- | stdlib/source/library/lux/control/exception.lux | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/stdlib/source/library/lux/control/exception.lux b/stdlib/source/library/lux/control/exception.lux index f07793cbd..6b2ea833e 100644 --- a/stdlib/source/library/lux/control/exception.lux +++ b/stdlib/source/library/lux/control/exception.lux @@ -106,7 +106,7 @@ ((,! text#composite) (, g!descriptor) (, (maybe.else (' "") body))))]))))))))) -(def (report' entries) +(def .public (report entries) (-> (List [Text Text]) Text) (let [header_separator ": " largest_header_size (list#mix (function (_ [header _] max) @@ -137,12 +137,6 @@ (on_entry head) tail)))) -(def .public report - (syntax (_ [entries (<>.many (<>.and <code>.any <code>.any))]) - (in (list (` ((,! ..report') (list (,* (|> entries - (list#each (function (_ [header message]) - (` [(, header) (, message)])))))))))))) - (def .public (listing format entries) (All (_ a) (-> (-> a Text) (List a) Text)) @@ -154,7 +148,7 @@ [0 {.#End}]) product.right list.reversed - ..report')) + ..report)) (def separator (let [gap (all "lux text concat" text.new_line text.new_line) |