diff options
Diffstat (limited to 'stdlib/source/library/lux/data/format/xml.lux')
| -rw-r--r-- | stdlib/source/library/lux/data/format/xml.lux | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/stdlib/source/library/lux/data/format/xml.lux b/stdlib/source/library/lux/data/format/xml.lux index 825daeac3..2459936a2 100644 --- a/stdlib/source/library/lux/data/format/xml.lux +++ b/stdlib/source/library/lux/data/format/xml.lux @@ -220,9 +220,9 @@ (def: xml_header Text - (let [quote (: (-> Text Text) - (function (_ value) - ($_ text#composite text.double_quote value text.double_quote)))] + (let [quote (is (-> Text Text) + (function (_ value) + ($_ text#composite text.double_quote value text.double_quote)))] ($_ text#composite "<?xml" " version=" (quote "1.0") @@ -233,13 +233,13 @@ (Codec Text XML) (def: encoded - (let [attributes (: (-> Attrs Text) - (function (_ attrs) - (|> attrs - dictionary.entries - (list#each (function (_ [key value]) - ($_ text#composite (..attribute key) "=" text.double_quote (sanitize_value value) text.double_quote))) - (text.interposed " "))))] + (let [attributes (is (-> Attrs Text) + (function (_ attrs) + (|> attrs + dictionary.entries + (list#each (function (_ [key value]) + ($_ text#composite (..attribute key) "=" text.double_quote (sanitize_value value) text.double_quote))) + (text.interposed " "))))] (function (_ input) ($_ text#composite ..xml_header text.new_line |