Text/Blaze/DTC/Attributes.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2 module Text.Blaze.DTC.Attributes where
   3
   4 -- import Control.Monad ((>>))
   5 -- import Data.Function ((.))
   6
   7 import Text.Blaze.Internal (Attribute, AttributeValue, attribute)
   8
   9 city    :: AttributeValue -> Attribute
  10 city    =  attribute "city" " city=\""
  11 class_  :: AttributeValue -> Attribute
  12 class_  =  attribute "class" " class=\""
  13 country :: AttributeValue -> Attribute
  14 country =  attribute "country" " country=\""
  15 day     :: AttributeValue -> Attribute
  16 day     =  attribute "day" " day=\""
  17 depth   :: AttributeValue -> Attribute
  18 depth   =  attribute "depth" " depth=\""
  19 email   :: AttributeValue -> Attribute
  20 email   =  attribute "email" " email=\""
  21 fax     :: AttributeValue -> Attribute
  22 fax     =  attribute "fax" " fax=\""
  23 href    :: AttributeValue -> Attribute
  24 href    =  attribute "href" " href=\""
  25 id      :: AttributeValue -> Attribute
  26 id      =  attribute "id" " id=\""
  27 lang    :: AttributeValue -> Attribute
  28 lang    =  attribute "lang" " lang=\""
  29 month   :: AttributeValue -> Attribute
  30 month   =  attribute "month" " month=\""
  31 name    :: AttributeValue -> Attribute
  32 name    =  attribute "name" " name=\""
  33 region  :: AttributeValue -> Attribute
  34 region  =  attribute "region" " region=\""
  35 rel     :: AttributeValue -> Attribute
  36 rel     =  attribute "rel" " rel=\""
  37 source  :: AttributeValue -> Attribute
  38 source  =  attribute "source" " source=\""
  39 street  :: AttributeValue -> Attribute
  40 street  =  attribute "street" " street=\""
  41 style   :: AttributeValue -> Attribute
  42 style   =  attribute "style" " style=\""
  43 tel     :: AttributeValue -> Attribute
  44 tel     =  attribute "tel" " tel=\""
  45 term    :: AttributeValue -> Attribute
  46 term    =  attribute "term" " term=\""
  47 to      :: AttributeValue -> Attribute
  48 to      =  attribute "to" " to=\""
  49 type_   :: AttributeValue -> Attribute
  50 type_   =  attribute "type" " type=\""
  51 url     :: AttributeValue -> Attribute
  52 url     =  attribute "url" " url=\""
  53 year    :: AttributeValue -> Attribute
  54 year    =  attribute "year" " year=\""
  55 zipcode :: AttributeValue -> Attribute
  56 zipcode =  attribute "zipcode" " zipcode=\""