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 class_ :: AttributeValue -> Attribute
  10 class_ = attribute "class" " class=\""
  11 href :: AttributeValue -> Attribute
  12 href = attribute "href" " href=\""
  13 id :: AttributeValue -> Attribute
  14 id = attribute "id" " id=\""
  15 lang :: AttributeValue -> Attribute
  16 lang = attribute "lang" " lang=\""
  17 name :: AttributeValue -> Attribute
  18 name = attribute "name" " name=\""
  19 rel :: AttributeValue -> Attribute
  20 rel = attribute "rel" " rel=\""
  21 style :: AttributeValue -> Attribute
  22 style = attribute "style" " style=\""
  23 to :: AttributeValue -> Attribute
  24 to = attribute "to" " to=\""