bamboo-2009.4.22: src/Bamboo/View/Atom/Tag.hs

{-# LANGUAGE NoImplicitPrelude #-}
module Bamboo.View.Atom.Tag where
  
import Bamboo.Helper.Env hiding (name)
import Bamboo.Model.Tag
import qualified Bamboo.Config.Global as G

instance DataRenderer Tag where
  render_data = name >>> tag_link

tag_link s = toHtml $ hotlink (G.root / G.tag_id / s ) << s