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

{-# LANGUAGE NoImplicitPrelude #-}
module Bamboo.View.Atom.Tag where
  
import Bamboo.View.Env hiding (name)

tag_link :: State -> String -> Html
tag_link s x = toHtml $ hotlink (s.config.root / s.config.tag_id / x ) << x