{-# LANGUAGE OverloadedStrings #-}
module Text.Blaze.DTC.Attributes where

-- import Control.Monad ((>>))
-- import Data.Function ((.))

import Text.Blaze.Internal (Attribute, AttributeValue, attribute)

class_ :: AttributeValue -> Attribute
class_ = attribute "class" " class=\""
href :: AttributeValue -> Attribute
href = attribute "href" " href=\""
id :: AttributeValue -> Attribute
id = attribute "id" " id=\""
lang :: AttributeValue -> Attribute
lang = attribute "lang" " lang=\""
name :: AttributeValue -> Attribute
name = attribute "name" " name=\""
rel :: AttributeValue -> Attribute
rel = attribute "rel" " rel=\""
style :: AttributeValue -> Attribute
style = attribute "style" " style=\""
to :: AttributeValue -> Attribute
to = attribute "to" " to=\""