{-# LANGUAGE OverloadedStrings #-}
module Text.Blaze.DTC.Attributes where

-- import Control.Monad ((>>))
-- import Data.Function ((.))

import Text.Blaze.Internal (Attribute, AttributeValue, attribute)

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=\""