diff options
Diffstat (limited to 'stdlib/source/library/lux/control/parser/xml.lux')
| -rw-r--r-- | stdlib/source/library/lux/control/parser/xml.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/library/lux/control/parser/xml.lux b/stdlib/source/library/lux/control/parser/xml.lux index 71fb6fab9..a4efa259b 100644 --- a/stdlib/source/library/lux/control/parser/xml.lux +++ b/stdlib/source/library/lux/control/parser/xml.lux @@ -4,10 +4,10 @@ [abstract [monad {"+" [do]}]] [control - ["[0]" try {"+" [Try]} ("[1]\[0]" functor)] + ["[0]" try {"+" [Try]} ("[1]#[0]" functor)] ["[0]" exception {"+" [exception:]}]] [data - ["[0]" name ("[1]\[0]" equivalence codec)] + ["[0]" name ("[1]#[0]" equivalence codec)] ["[0]" text ["%" format {"+" [format]}]] [collection @@ -37,7 +37,7 @@ (exception: .public (unconsumed_inputs [inputs (List XML)]) (exception.report - ["Inputs" (exception.listing (\ /.codec encoded) inputs)])) + ["Inputs" (exception.listing (# /.codec encoded) inputs)])) (def: (result' parser attrs documents) (All (_ a) (-> (Parser a) Attrs (List XML) (Try a))) @@ -107,10 +107,10 @@ (exception.except ..unexpected_input []) {/.#Node actual attrs' children} - (if (name\= expected actual) + (if (name#= expected actual) (|> children (..result' parser attrs') - (try\each (|>> [[attrs tail]]))) + (try#each (|>> [[attrs tail]]))) (exception.except ..wrong_tag [expected actual])))))) (def: .public any |