panda-2008.9.29: Panda/View/Atom/Tag.hs
module Panda.View.Atom.Tag where
import Panda.Helper.Env hiding (name)
import Panda.Model.Tag
instance DataRenderer Tag where
render_data = name >>> tag_link
tag_link s = toHtml $ hotlink ("/tag/" ++ s ) << s