Html.hs

{-# LANGUAGE NoMonomorphismRestriction#-}
{-# LANGUAGE NoImplicitPrelude #-}

module Bamboo.Helper.Html where

import Text.XHtml.Strict

span = thespan

div = thediv
id = identifier
klass = theclass

d = div
c x = d ! [klass x]
i x = d ! [id x]

ic x y = d ! [id x, klass y]
ci x y = ic y x

ul = ulist

link = hotlink
img = image