diff options
author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-17 12:37:55 +0100 |
---|---|---|
committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-17 12:37:55 +0100 |
commit | aa44d6c0da442887155a47c77f03209224517af0 (patch) | |
tree | b9c1d8fe6bed4eb1922d737f8817d851d8a34f5d /src/Text/Hakyll/Tags.hs | |
parent | 003734442486876153911d339f07d4379e8dca20 (diff) | |
download | hakyll-aa44d6c0da442887155a47c77f03209224517af0.tar.gz |
Documentation++.
Diffstat (limited to 'src/Text/Hakyll/Tags.hs')
-rw-r--r-- | src/Text/Hakyll/Tags.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Hakyll/Tags.hs b/src/Text/Hakyll/Tags.hs index 667c2ee..79dcecd 100644 --- a/src/Text/Hakyll/Tags.hs +++ b/src/Text/Hakyll/Tags.hs @@ -19,7 +19,7 @@ import Text.Hakyll.Page import Control.Arrow (second) -- | Read a tag map. This creates a map from tags to page paths. This function --- assumes the tags are located in the `tags` metadata field, separated by +-- assumes the tags are located in the @tags@ metadata field, separated by -- commas. readTagMap :: [FilePath] -> Hakyll (M.Map String [FilePath]) readTagMap paths = foldM addPaths M.empty paths @@ -30,7 +30,7 @@ readTagMap paths = foldM addPaths M.empty paths return $ foldr (\t -> M.insertWith (++) t [path]) current tags -- | Render a tag cloud. -renderTagCloud :: M.Map String [FilePath] -- ^ Map as produced by 'readTagMap'. +renderTagCloud :: M.Map String [FilePath] -- ^ Map as produced by "readTagMap". -> (String -> String) -- ^ Function to produce an url for a tag. -> Float -- ^ Smallest font size, in percent. -> Float -- ^ Biggest font size, in percent. |