{-# 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=\"" role :: AttributeValue -> Attribute role = attribute "role" " role=\"" 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=\""