@@ -1,3 +1,4 @@
1+-- | Miscellaneous text manipulation functions.
1module Text.Hakyll.Util
2module Text.Hakyll.Util
3 , stripHTML
4 , stripHTML
@@ -26,6 +27,8 @@ stripHTML str = let (beforeTag, rest) = break (== '<') str
26-- | Make a HTML link.
27-- | Make a HTML link.
28-- > link "foo" "bar.html" == "<a href='bar.html'>foo</a>"
29-- > link "foo" "bar.html" == "<a href='bar.html'>foo</a>"
29−link :: String -> String -> String
30+link :: String -- ^ Link text.
31+ -> String -- ^ Link destination.
30link text destination = "<a href=\"" ++ destination ++ "\">"
33link text destination = "<a href=\"" ++ destination ++ "\">"
31 ++ text ++ "</a>"
34 ++ text ++ "</a>"