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 grades  :: AttributeValue -> Attribute
  24 grades  =  attribute "grades" " grades=\""
  25 href    :: AttributeValue -> Attribute
  26 href    =  attribute "href" " href=\""
  27 id      :: AttributeValue -> Attribute
  28 id      =  attribute "id" " id=\""
  29 judges  :: AttributeValue -> Attribute
  30 judges  =  attribute "judges" " judges=\""
  31 lang    :: AttributeValue -> Attribute
  32 lang    =  attribute "lang" " lang=\""
  33 month   :: AttributeValue -> Attribute
  34 month   =  attribute "month" " month=\""
  35 name    :: AttributeValue -> Attribute
  36 name    =  attribute "name" " name=\""
  37 region  :: AttributeValue -> Attribute
  38 region  =  attribute "region" " region=\""
  39 rel     :: AttributeValue -> Attribute
  40 rel     =  attribute "rel" " rel=\""
  41 source  :: AttributeValue -> Attribute
  42 source  =  attribute "source" " source=\""
  43 street  :: AttributeValue -> Attribute
  44 street  =  attribute "street" " street=\""
  45 style   :: AttributeValue -> Attribute
  46 style   =  attribute "style" " style=\""
  47 tel     :: AttributeValue -> Attribute
  48 tel     =  attribute "tel" " tel=\""
  49 term    :: AttributeValue -> Attribute
  50 term    =  attribute "term" " term=\""
  51 to      :: AttributeValue -> Attribute
  52 to      =  attribute "to" " to=\""
  53 type_   :: AttributeValue -> Attribute
  54 type_   =  attribute "type" " type=\""
  55 url     :: AttributeValue -> Attribute
  56 url     =  attribute "url" " url=\""
  57 year    :: AttributeValue -> Attribute
  58 year    =  attribute "year" " year=\""
  59 zipcode :: AttributeValue -> Attribute
  60 zipcode =  attribute "zipcode" " zipcode=\""