diff options
Diffstat (limited to 'stdlib/source/library/lux/data/format/xml.lux')
| -rw-r--r-- | stdlib/source/library/lux/data/format/xml.lux | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/library/lux/data/format/xml.lux b/stdlib/source/library/lux/data/format/xml.lux index 89a8eccad..1fa0a04ac 100644 --- a/stdlib/source/library/lux/data/format/xml.lux +++ b/stdlib/source/library/lux/data/format/xml.lux @@ -58,7 +58,7 @@ (Parser Text) (|> (do [! <>.monad] [hex? (<>.maybe (<text>.this "x"))] - (<| (# ! each (|>> .nat text.of_char)) + (<| (at ! each (|>> .nat text.of_char)) (<>.codec int.decimal) <text>.slice <text>.many! @@ -119,7 +119,7 @@ (def: attrs^ (Parser Attrs) - (<| (# <>.monad each (dictionary.of_list symbol.hash)) + (<| (at <>.monad each (dictionary.of_list symbol.hash)) <>.some (<>.and (..spaced^ attr_name^)) (<>.after (<text>.this "=")) @@ -289,7 +289,7 @@ [{#Node reference/tag reference/attrs reference/children} {#Node sample/tag sample/attrs sample/children}] (and (symbol#= reference/tag sample/tag) - (# (dictionary.equivalence text.equivalence) = reference/attrs sample/attrs) + (at (dictionary.equivalence text.equivalence) = reference/attrs sample/attrs) (n.= (list.size reference/children) (list.size sample/children)) (|> (list.zipped_2 reference/children sample/children) |