{-# 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