aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/data/format/xml.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/library/lux/data/format/xml.lux')
-rw-r--r--stdlib/source/library/lux/data/format/xml.lux18
1 files changed, 9 insertions, 9 deletions
diff --git a/stdlib/source/library/lux/data/format/xml.lux b/stdlib/source/library/lux/data/format/xml.lux
index 843a35c91..54e544583 100644
--- a/stdlib/source/library/lux/data/format/xml.lux
+++ b/stdlib/source/library/lux/data/format/xml.lux
@@ -21,21 +21,21 @@
["n" nat]
["." int]]]]])
-(type: #export Tag
+(type: .public Tag
Name)
-(type: #export Attribute
+(type: .public Attribute
Name)
-(type: #export Attrs
+(type: .public Attrs
(Dictionary Attribute Text))
-(def: #export attributes
+(def: .public attributes
{#.doc (doc "An empty set of XML attributes.")}
Attrs
(dictionary.empty name.hash))
-(type: #export #rec XML
+(type: .public #rec XML
(#Text Text)
(#Node Tag Attrs (List XML)))
@@ -206,14 +206,14 @@
(text.replace_all "'" "'")
(text.replace_all text.double_quote """)))
-(def: #export (tag [namespace name])
+(def: .public (tag [namespace name])
{#.doc (doc "The text format of a XML tag.")}
(-> Tag Text)
(case namespace
"" name
_ ($_ text\compose namespace ..namespace_separator name)))
-(def: #export attribute
+(def: .public attribute
{#.doc (doc "The text format of a XML attribute.")}
(-> Attribute Text)
..tag)
@@ -229,7 +229,7 @@
" encoding=" (quote "UTF-8")
"?>")))
-(implementation: #export codec
+(implementation: .public codec
(Codec Text XML)
(def: encode
@@ -275,7 +275,7 @@
(def: decode
(<text>.run ..xml^)))
-(implementation: #export equivalence
+(implementation: .public equivalence
(Equivalence XML)
(def: (= reference sample)