Fix parsing HeaderSection.

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

diff --git a/Text/Blaze/DTC/Attributes.hs b/Text/Blaze/DTC/Attributes.hs
index 480108eace2ba65a10c639b9c9d6fa2c8a8ab6e0..eb13a95db110ba6c41a09c0502954cdd8afedbe5 100644 (file)
--- a/Text/Blaze/DTC/Attributes.hs
+++ b/Text/Blaze/DTC/Attributes.hs
@@ -6,19 +6,47 @@ 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=\""
+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=\""
+href    :: AttributeValue -> Attribute
+href    =  attribute "href" " href=\""
+id      :: AttributeValue -> Attribute
+id      =  attribute "id" " id=\""
+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=\""
+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=\""
+year    :: AttributeValue -> Attribute
+year    =  attribute "year" " year=\""
+zipcode :: AttributeValue -> Attribute
+zipcode =  attribute "zipcode" " zipcode=\""