@@ -170,7 +170,7 @@ renderTagList :: (String -> Identifier (Page a)) -> Compiler (Tags a) (String)
170renderTagList makeUrl = renderTags makeUrl makeLink (intercalate ", ")
170renderTagList makeUrl = renderTags makeUrl makeLink (intercalate ", ")
172 makeLink tag url count _ _ = renderHtml $
172 makeLink tag url count _ _ = renderHtml $
173− H.a ! A.href (toValue url) $ toHtml (tag ++ "(" ++ show count ++ ")")
173+ H.a ! A.href (toValue url) $ toHtml (tag ++ " (" ++ show count ++ ")")
175-- | Render tags with links
175-- | Render tags with links