Prepare for merging DTC mangling operations.

[doclang.git] / Text / Blaze / DTC / Attributes.hs

diff --git a/Text/Blaze/DTC/Attributes.hs b/Text/Blaze/DTC/Attributes.hs
index c0be23e25c1348e3d3f6001f4b1e2e05177144ac..a400a370f4d20e363f7b3464f4b4d96ee5e4b2e5 100644 (file)
--- a/Text/Blaze/DTC/Attributes.hs
+++ b/Text/Blaze/DTC/Attributes.hs
@@ -6,21 +6,55 @@ module Text.Blaze.DTC.Attributes where
 
 import Text.Blaze.Internal (Attribute, AttributeValue, attribute)
 
-class_ :: AttributeValue -> Attribute
-class_ = attribute "class" " class=\""
-href :: AttributeValue -> Attribute
-href = attribute "href" " href=\""
-id :: AttributeValue -> Attribute
-id = attribute "id" " id=\""
-lang :: AttributeValue -> Attribute
-lang = attribute "lang" " lang=\""
-name :: AttributeValue -> Attribute
-name = attribute "name" " name=\""
-rel :: AttributeValue -> Attribute
-rel = attribute "rel" " rel=\""
-style :: AttributeValue -> Attribute
-style = attribute "style" " style=\""
-to :: AttributeValue -> Attribute
-to = attribute "to" " to=\""
-type_ :: AttributeValue -> Attribute
-type_ = attribute "type" " type=\""
+city    :: AttributeValue -> Attribute
+city    =  attribute "city" " city=\""
+class_  :: AttributeValue -> Attribute
+class_  =  attribute "class" " class=\""
+country :: AttributeValue -> Attribute
+country =  attribute "country" " country=\""
+day     :: AttributeValue -> Attribute
+day     =  attribute "day" " day=\""
+depth   :: AttributeValue -> Attribute
+depth   =  attribute "depth" " depth=\""
+email   :: AttributeValue -> Attribute
+email   =  attribute "email" " email=\""
+fax     :: AttributeValue -> Attribute
+fax     =  attribute "fax" " fax=\""
+grades  :: AttributeValue -> Attribute
+grades  =  attribute "grades" " grades=\""
+href    :: AttributeValue -> Attribute
+href    =  attribute "href" " href=\""
+id      :: AttributeValue -> Attribute
+id      =  attribute "id" " id=\""
+judges  :: AttributeValue -> Attribute
+judges  =  attribute "judges" " judges=\""
+lang    :: AttributeValue -> Attribute
+lang    =  attribute "lang" " lang=\""
+month   :: AttributeValue -> Attribute
+month   =  attribute "month" " month=\""
+name    :: AttributeValue -> Attribute
+name    =  attribute "name" " name=\""
+region  :: AttributeValue -> Attribute
+region  =  attribute "region" " region=\""
+rel     :: AttributeValue -> Attribute
+rel     =  attribute "rel" " rel=\""
+source  :: AttributeValue -> Attribute
+source  =  attribute "source" " source=\""
+street  :: AttributeValue -> Attribute
+street  =  attribute "street" " street=\""
+style   :: AttributeValue -> Attribute
+style   =  attribute "style" " style=\""
+tel     :: AttributeValue -> Attribute
+tel     =  attribute "tel" " tel=\""
+term    :: AttributeValue -> Attribute
+term    =  attribute "term" " term=\""
+to      :: AttributeValue -> Attribute
+to      =  attribute "to" " to=\""
+type_   :: AttributeValue -> Attribute
+type_   =  attribute "type" " type=\""
+url     :: AttributeValue -> Attribute
+url     =  attribute "url" " url=\""
+year    :: AttributeValue -> Attribute
+year    =  attribute "year" " year=\""
+zipcode :: AttributeValue -> Attribute
+zipcode =  attribute "zipcode" " zipcode=\""