Footer.hs

{-# LANGUAGE NoImplicitPrelude #-}
module Bamboo.View.Widget.Footer where
  
import Bamboo.Helper.Env
import qualified Bamboo.Config.Global as G


static_footer = toHtml
  [ toHtml $ copyright
  , toHtml $ "2008 "
  , toHtml $ G.blog_title
  , toHtml $ br
  , toHtml $ "Powered by "
  , toHtml $ hotlink G.bamboo_url << "Bamboo"
  , toHtml $ " using "
  , toHtml $ hotlink "http://www.haskell.org/" << "Haskell"
  ]
  
custom_footer 
  | G.footer.isJust =  G.footer.fromJust.markup
  | otherwise = static_footer

footer c = div_class_id c "footer" << custom_footer