packages feed

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