diff options
author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-14 20:46:08 +0100 |
---|---|---|
committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-14 20:46:08 +0100 |
commit | 4bc34b8a98ffa1e7f3478a596b73c4ab12d9cb1b (patch) | |
tree | 86ff0e311ec49f794b28f973c95620918ab4f9ee /src/Text/Hakyll/Tags.hs | |
parent | 332f2f95cdb9c72e01a55eaf46c0b08bcf37d7e9 (diff) | |
download | hakyll-4bc34b8a98ffa1e7f3478a596b73c4ab12d9cb1b.tar.gz |
Added ReaderT to our stack.
Diffstat (limited to 'src/Text/Hakyll/Tags.hs')
-rw-r--r-- | src/Text/Hakyll/Tags.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Hakyll/Tags.hs b/src/Text/Hakyll/Tags.hs index 625584e..209d479 100644 --- a/src/Text/Hakyll/Tags.hs +++ b/src/Text/Hakyll/Tags.hs @@ -9,6 +9,7 @@ module Text.Hakyll.Tags import qualified Data.Map as M import Data.List (intercalate) import Control.Monad (foldM) +import Text.Hakyll.Hakyll (Hakyll) import Text.Hakyll.Context (ContextManipulation, renderValue) import Text.Hakyll.Regex @@ -19,7 +20,7 @@ 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 -- commas. -readTagMap :: [FilePath] -> IO (M.Map String [FilePath]) +readTagMap :: [FilePath] -> Hakyll (M.Map String [FilePath]) readTagMap paths = foldM addPaths M.empty paths where addPaths current path = do |