Fix XML rendition of PairFrenchquote.

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

diff --git a/Text/Blaze/DTC/Attributes.hs b/Text/Blaze/DTC/Attributes.hs
index eb13a95db110ba6c41a09c0502954cdd8afedbe5..1c3ea1526f46ba2ebdbff2180517a484e442491d 100644 (file)
--- a/Text/Blaze/DTC/Attributes.hs
+++ b/Text/Blaze/DTC/Attributes.hs
@@ -34,6 +34,8 @@ 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
@@ -46,6 +48,8 @@ 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