diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/lux/data/format/css.lux | 6 | ||||
-rw-r--r-- | stdlib/source/lux/data/format/css/property.lux | 2 | ||||
-rw-r--r-- | stdlib/source/lux/data/format/css/query.lux | 6 | ||||
-rw-r--r-- | stdlib/source/lux/data/format/css/selector.lux | 14 | ||||
-rw-r--r-- | stdlib/source/lux/data/format/css/style.lux | 4 | ||||
-rw-r--r-- | stdlib/source/lux/data/format/css/value.lux | 14 | ||||
-rw-r--r-- | stdlib/source/lux/data/format/html.lux | 8 | ||||
-rw-r--r-- | stdlib/source/lux/data/format/markdown.lux | 6 | ||||
-rw-r--r-- | stdlib/source/lux/data/format/tar.lux | 14 |
9 files changed, 15 insertions, 59 deletions
diff --git a/stdlib/source/lux/data/format/css.lux b/stdlib/source/lux/data/format/css.lux index 2b09140f6..aef22816a 100644 --- a/stdlib/source/lux/data/format/css.lux +++ b/stdlib/source/lux/data/format/css.lux @@ -20,12 +20,10 @@ ["#." style (#+ Style)] ["#." query (#+ Query)]]) -(abstract: #export Common {} Any) -(abstract: #export Special {} Any) +(abstract: #export Common Any) +(abstract: #export Special Any) (abstract: #export (CSS brand) - {} - Text (def: #export css (-> (CSS Any) Text) (|>> :representation)) diff --git a/stdlib/source/lux/data/format/css/property.lux b/stdlib/source/lux/data/format/css/property.lux index 29e919501..bbfdd1930 100644 --- a/stdlib/source/lux/data/format/css/property.lux +++ b/stdlib/source/lux/data/format/css/property.lux @@ -55,8 +55,6 @@ (wrap (list (code.local-identifier identifier)))) (abstract: #export (Property brand) - {} - Text (def: #export name diff --git a/stdlib/source/lux/data/format/css/query.lux b/stdlib/source/lux/data/format/css/query.lux index 31f5bee21..6b1e57554 100644 --- a/stdlib/source/lux/data/format/css/query.lux +++ b/stdlib/source/lux/data/format/css/query.lux @@ -24,8 +24,6 @@ (wrap (list (code.local-identifier identifier)))) (abstract: #export Media - {} - Text (def: #export media @@ -44,8 +42,6 @@ )) (abstract: #export Feature - {} - Text (def: #export feature @@ -106,8 +102,6 @@ ) (abstract: #export Query - {} - Text (def: #export query diff --git a/stdlib/source/lux/data/format/css/selector.lux b/stdlib/source/lux/data/format/css/selector.lux index dd99a98c4..1c0f4b566 100644 --- a/stdlib/source/lux/data/format/css/selector.lux +++ b/stdlib/source/lux/data/format/css/selector.lux @@ -18,23 +18,21 @@ (type: #export Class Label) (type: #export Attribute Label) -(abstract: #export (Generic brand) {} Any) +(abstract: #export (Generic brand) Any) (template [<generic> <brand>] - [(abstract: <brand> {} Any) + [(abstract: <brand> Any) (type: #export <generic> (Generic <brand>))] [Can-Chain Can-Chain'] [Cannot-Chain Cannot-Chain'] ) -(abstract: #export Unique {} Any) -(abstract: #export Specific {} Any) -(abstract: #export Composite {} Any) +(abstract: #export Unique Any) +(abstract: #export Specific Any) +(abstract: #export Composite Any) (abstract: #export (Selector kind) - {} - Text (def: #export selector @@ -164,8 +162,6 @@ :abstraction)) (abstract: #export Index - {} - Text (def: #export index diff --git a/stdlib/source/lux/data/format/css/style.lux b/stdlib/source/lux/data/format/css/style.lux index 5264fb0f9..fbcab6700 100644 --- a/stdlib/source/lux/data/format/css/style.lux +++ b/stdlib/source/lux/data/format/css/style.lux @@ -10,10 +10,10 @@ ["#." property (#+ Property)]]) (abstract: #export Style - {#.doc "The style associated with a CSS selector."} - Text + {#.doc "The style associated with a CSS selector."} + (def: #export empty Style (:abstraction "")) (def: #export separator " ") diff --git a/stdlib/source/lux/data/format/css/value.lux b/stdlib/source/lux/data/format/css/value.lux index 4b3f3b1ba..d6aee7813 100644 --- a/stdlib/source/lux/data/format/css/value.lux +++ b/stdlib/source/lux/data/format/css/value.lux @@ -32,8 +32,6 @@ (template: (enumeration: <abstraction> <representation> <out> <sample>+ <definition>+) (abstract: #export <abstraction> - {} - <representation> (def: #export <out> @@ -63,8 +61,6 @@ (|> raw (text.split 1) maybe.assume product.right)))) (abstract: #export (Value brand) - {} - Text (def: #export value @@ -80,7 +76,7 @@ ) (template [<brand> <alias>+ <value>+] - [(abstract: #export <brand> {} Any) + [(abstract: #export <brand> Any) (`` (template [<name> <value>] [(def: #export <name> @@ -893,8 +889,6 @@ (%.nat vertical)))) (abstract: #export Stop - {} - Text (def: #export stop @@ -915,8 +909,6 @@ (:representation Value end)))) (abstract: #export Hint - {} - Text (def: #export hint @@ -936,8 +928,6 @@ [a (List a)]) (abstract: #export Angle - {} - Text (def: #export angle @@ -977,8 +967,6 @@ ) (abstract: #export Percentage - {} - Text (def: #export percentage diff --git a/stdlib/source/lux/data/format/html.lux b/stdlib/source/lux/data/format/html.lux index 92d1b22e4..a5fbce4d7 100644 --- a/stdlib/source/lux/data/format/html.lux +++ b/stdlib/source/lux/data/format/html.lux @@ -76,12 +76,10 @@ (text.enclose ["</" ">"])) (abstract: #export (HTML brand) - {} - Text (template [<name> <brand>] - [(abstract: #export <brand> {} Any) + [(abstract: #export <brand> Any) (type: #export <name> (HTML <brand>))] [Meta Meta'] @@ -99,11 +97,11 @@ ) (template [<super> <super-raw> <sub>+] - [(abstract: #export (<super-raw> brand) {} Any) + [(abstract: #export (<super-raw> brand) Any) (type: #export <super> (HTML (<super-raw> Any))) (`` (template [<sub> <sub-raw>] - [(abstract: #export <sub-raw> {} Any) + [(abstract: #export <sub-raw> Any) (type: #export <sub> (HTML (<super-raw> <sub-raw>)))] (~~ (template.splice <sub>+))))] diff --git a/stdlib/source/lux/data/format/markdown.lux b/stdlib/source/lux/data/format/markdown.lux index fe20f30b2..bb9a86b46 100644 --- a/stdlib/source/lux/data/format/markdown.lux +++ b/stdlib/source/lux/data/format/markdown.lux @@ -30,12 +30,10 @@ (text.replace-all "." "\.") (text.replace-all "!" "\!"))) -(abstract: #export Span {} Any) -(abstract: #export Block {} Any) +(abstract: #export Span Any) +(abstract: #export Block Any) (abstract: #export (Markdown brand) - {} - Text (def: #export empty diff --git a/stdlib/source/lux/data/format/tar.lux b/stdlib/source/lux/data/format/tar.lux index 544540418..ca5037a65 100644 --- a/stdlib/source/lux/data/format/tar.lux +++ b/stdlib/source/lux/data/format/tar.lux @@ -65,8 +65,6 @@ ["Maximum" (%.nat (dec <limit>))])) (abstract: #export <type> - {} - Nat (def: #export (<in> value) @@ -152,8 +150,6 @@ (..big value))))) (abstract: Checksum - {} - Text (def: from-checksum @@ -245,8 +241,6 @@ (template [<type> <representation> <size> <exception> <in> <out> <writer> <parser> <none>] [(abstract: #export <type> - {} - <representation> (exception: #export (<exception> {value Text}) @@ -302,8 +296,6 @@ (def: magic-size Size 7) (abstract: Magic - {} - Text (def: ustar (:abstraction "ustar ")) @@ -390,8 +382,6 @@ (..small-number ..device-size))) (abstract: Link-Flag - {} - Char (def: link-flag @@ -440,8 +430,6 @@ ) (abstract: #export Mode - {} - Nat (def: #export mode @@ -530,8 +518,6 @@ (list@fold n.* 1))) (abstract: #export Content - {} - [Big Binary] (def: #export (content content) |