diff options
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 |