summaryrefslogtreecommitdiff
path: root/lib/Hakyll/Web
diff options
context:
space:
mode:
authorJasper Van der Jeugt <m@jaspervdj.be>2019-10-29 12:40:25 +0100
committerGitHub <noreply@github.com>2019-10-29 12:40:25 +0100
commite3344eb38781445d33c1a0011b1fd8517b50160c (patch)
tree208cef912d946da6c62e87de9ffeee2d77965fef /lib/Hakyll/Web
parentd9aa64adf71a236ddb399f26b7f460ac36b42d15 (diff)
downloadhakyll-e3344eb38781445d33c1a0011b1fd8517b50160c.tar.gz
Add titles to tag fields
Diffstat (limited to 'lib/Hakyll/Web')
-rw-r--r--lib/Hakyll/Web/Tags.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/Hakyll/Web/Tags.hs b/lib/Hakyll/Web/Tags.hs
index 43f6c4f..aab5d34 100644
--- a/lib/Hakyll/Web/Tags.hs
+++ b/lib/Hakyll/Web/Tags.hs
@@ -326,8 +326,10 @@ categoryField =
-- | Render one tag link
simpleRenderLink :: String -> (Maybe FilePath) -> Maybe H.Html
simpleRenderLink _ Nothing = Nothing
-simpleRenderLink tag (Just filePath) =
- Just $ H.a ! A.href (toValue $ toUrl filePath) $ toHtml tag
+simpleRenderLink tag (Just filePath) = Just $
+ H.a ! A.title (H.stringValue ("All pages tagged '"++tag++"'."))
+ ! A.href (toValue $ toUrl filePath)
+ $ toHtml tag
--------------------------------------------------------------------------------