diff options
Diffstat (limited to 'stdlib/source/lux/control/exception.lux')
-rw-r--r-- | stdlib/source/lux/control/exception.lux | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/stdlib/source/lux/control/exception.lux b/stdlib/source/lux/control/exception.lux index 9a357d8a1..71cfa3414 100644 --- a/stdlib/source/lux/control/exception.lux +++ b/stdlib/source/lux/control/exception.lux @@ -7,9 +7,9 @@ ["//" error (#+ Error)] ["." maybe] ["." product] - ["." text ("#/." monoid)] + ["." text ("#;." monoid)] [collection - ["." list ("#/." functor fold)]]] + ["." list ("#;." functor fold)]]] ["." macro ["." code] ["s" syntax (#+ syntax: Syntax)] @@ -97,36 +97,36 @@ (macro.with-gensyms [g!descriptor] (do @ [current-module macro.current-module-name - #let [descriptor ($_ text/compose "{" current-module "." name "}" text.new-line) + #let [descriptor ($_ text;compose "{" current-module "." name "}" text.new-line) g!self (code.local-identifier name)]] (wrap (list (` (def: (~+ (csw.export export)) (~ g!self) (All [(~+ (csw.type-variables t-vars))] - (..Exception [(~+ (list/map (get@ #cs.input-type) inputs))])) + (..Exception [(~+ (list;map (get@ #cs.input-type) inputs))])) (let [(~ g!descriptor) (~ (code.text descriptor))] {#..label (~ g!descriptor) - #..constructor (function ((~ g!self) [(~+ (list/map (get@ #cs.input-binding) inputs))]) - ((~! text/compose) (~ g!descriptor) + #..constructor (function ((~ g!self) [(~+ (list;map (get@ #cs.input-binding) inputs))]) + ((~! text;compose) (~ g!descriptor) (~ (maybe.default (' "") body))))}))))) ))) (def: #export (report' entries) (-> (List [Text Text]) Text) (let [largest-header-size (|> entries - (list/map (|>> product.left text.size)) - (list/fold n/max 0))] + (list;map (|>> product.left text.size)) + (list;fold n/max 0))] (|> entries - (list/map (function (_ [header message]) + (list;map (function (_ [header message]) (let [padding (|> " " (list.repeat (n/- (text.size header) largest-header-size)) (text.join-with ""))] - ($_ text/compose padding header ": " message text.new-line)))) + ($_ text;compose padding header ": " message text.new-line)))) (text.join-with "")))) (syntax: #export (report {entries (p.many (s.tuple (p.and s.any s.any)))}) (wrap (list (` (report' (list (~+ (|> entries - (list/map (function (_ [header message]) + (list;map (function (_ [header message]) (` [(~ header) (~ message)]))))))))))) (def: separator |