bamboo-theme-blueprint-2009.6.8: src/Bamboo/Theme/Blueprint/Widget/Footer.hs

{-# LANGUAGE NoImplicitPrelude #-}
module Bamboo.Theme.Blueprint.Widget.Footer where
  
import Bamboo.Theme.Blueprint.Env

import qualified Bamboo.Type.Config as C

footer :: Widget
footer s = div_class_id "footer" "footer" << custom_footer
  where
    static_footer = toHtml
      [ toHtml $ copyright
      , toHtml $ "2008 "
      , toHtml $ s.config.blog_title
      , toHtml $ br
      , toHtml $ "Powered by "
      , toHtml $ hotlink (s.config.bamboo_url) << "Bamboo"
      , toHtml $ " using "
      , toHtml $ hotlink "http://www.haskell.org/" << "Haskell"
      ]

    custom_footer
      | s.config.C.footer.isJust = s.config.C.footer.fromJust.markup
      | otherwise = static_footer