Tag.hs

{-# LANGUAGE NoImplicitPrelude #-}
module Panda.View.Atom.Tag where
  
import Panda.Helper.Env hiding (name)
import Panda.Model.Tag
import qualified Panda.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