Footer.hs

module Panda.View.Widget.Footer where
  
import Panda.Helper.Env
import Prelude hiding ((.), (/), (^), id, span)
import qualified Panda.Config.Global as G


footer c = div_class_id c "footer" <<
  [ toHtml $ copyright
  , toHtml $ "2008 "
  , toHtml $ G.blog_title
  , toHtml $ br
  , toHtml $ "Powered by "
  , toHtml $ hotlink G.panda_url << "Panda"
  , toHtml $ " using "
  , toHtml $ hotlink "http://www.haskell.org/" << "Haskell"
  ]