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 at      :: AttributeValue -> Attribute
  10 at      =  attribute "at" " at=\""
  11 city    :: AttributeValue -> Attribute
  12 city    =  attribute "city" " city=\""
  13 class_  :: AttributeValue -> Attribute
  14 class_  =  attribute "class" " class=\""
  15 country :: AttributeValue -> Attribute
  16 country =  attribute "country" " country=\""
  17 day     :: AttributeValue -> Attribute
  18 day     =  attribute "day" " day=\""
  19 depth   :: AttributeValue -> Attribute
  20 depth   =  attribute "depth" " depth=\""
  21 email   :: AttributeValue -> Attribute
  22 email   =  attribute "email" " email=\""
  23 fax     :: AttributeValue -> Attribute
  24 fax     =  attribute "fax" " fax=\""
  25 grades  :: AttributeValue -> Attribute
  26 grades  =  attribute "grades" " grades=\""
  27 href    :: AttributeValue -> Attribute
  28 href    =  attribute "href" " href=\""
  29 id      :: AttributeValue -> Attribute
  30 id      =  attribute "id" " id=\""
  31 judges  :: AttributeValue -> Attribute
  32 judges  =  attribute "judges" " judges=\""
  33 lang    :: AttributeValue -> Attribute
  34 lang    =  attribute "lang" " lang=\""
  35 month   :: AttributeValue -> Attribute
  36 month   =  attribute "month" " month=\""
  37 name    :: AttributeValue -> Attribute
  38 name    =  attribute "name" " name=\""
  39 region  :: AttributeValue -> Attribute
  40 region  =  attribute "region" " region=\""
  41 rel     :: AttributeValue -> Attribute
  42 rel     =  attribute "rel" " rel=\""
  43 role    :: AttributeValue -> Attribute
  44 role    =  attribute "role" " role=\""
  45 source  :: AttributeValue -> Attribute
  46 source  =  attribute "source" " source=\""
  47 street  :: AttributeValue -> Attribute
  48 street  =  attribute "street" " street=\""
  49 style   :: AttributeValue -> Attribute
  50 style   =  attribute "style" " style=\""
  51 tel     :: AttributeValue -> Attribute
  52 tel     =  attribute "tel" " tel=\""
  53 term    :: AttributeValue -> Attribute
  54 term    =  attribute "term" " term=\""
  55 to      :: AttributeValue -> Attribute
  56 to      =  attribute "to" " to=\""
  57 type_   :: AttributeValue -> Attribute
  58 type_   =  attribute "type" " type=\""
  59 url     :: AttributeValue -> Attribute
  60 url     =  attribute "url" " url=\""
  61 year    :: AttributeValue -> Attribute
  62 year    =  attribute "year" " year=\""
  63 zipcode :: AttributeValue -> Attribute
  64 zipcode =  attribute "zipcode" " zipcode=\""