diff options
Diffstat (limited to 'stdlib/source/library/lux/data/format/xml.lux')
-rw-r--r-- | stdlib/source/library/lux/data/format/xml.lux | 18 |
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) |