aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/control/parser/xml.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/library/lux/control/parser/xml.lux')
-rw-r--r--stdlib/source/library/lux/control/parser/xml.lux7
1 files changed, 4 insertions, 3 deletions
diff --git a/stdlib/source/library/lux/control/parser/xml.lux b/stdlib/source/library/lux/control/parser/xml.lux
index fa4245354..0fc4ab793 100644
--- a/stdlib/source/library/lux/control/parser/xml.lux
+++ b/stdlib/source/library/lux/control/parser/xml.lux
@@ -7,14 +7,15 @@
["[0]" try {"+" Try} ("[1]#[0]" functor)]
["[0]" exception {"+" exception:}]]
[data
- ["[0]" name ("[1]#[0]" equivalence codec)]
["[0]" text
["%" format {"+" format}]]
[collection
["[0]" list]
["[0]" dictionary]]
[format
- ["/" xml {"+" Attribute Attrs Tag XML}]]]]]
+ ["/" xml {"+" Attribute Attrs Tag XML}]]]
+ [meta
+ ["[0]" symbol ("[1]#[0]" equivalence codec)]]]]
["[0]" //])
(type: .public (Parser a)
@@ -107,7 +108,7 @@
(exception.except ..unexpected_input [])
{/.#Node actual attrs' children}
- (if (name#= expected actual)
+ (if (symbol#= expected actual)
(|> children
(..result' parser attrs')
(try#each (|>> [[attrs tail]])))