Footer.hs

module Panda.View.Theme.BluePrint.Template.Footer where
  
import Panda.Helper.Env
import Prelude hiding ((.), (/), id, span)
import qualified Panda.Config.Global as Config
import qualified Panda.Type.State as State
import Text.XHtml.Strict


import qualified Panda.Config.Global as Config

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