summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJasper Van der Jeugt <jaspervdj@gmail.com>2011-01-07 14:40:33 +0100
committerJasper Van der Jeugt <jaspervdj@gmail.com>2011-01-07 14:40:33 +0100
commit1bf95c0028b041ae57a28cf1592db75010fe0f08 (patch)
treeec9579059ed5dd99741b32341814459cbc18955c
parentf1e726be69b7ed78f7b8f7eed4b41305b125a3bb (diff)
downloadhakyll-1bf95c0028b041ae57a28cf1592db75010fe0f08.tar.gz
Rank N compilers (compiler in compilers in...)
-rw-r--r--src/Hakyll/Core/Rules.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Hakyll/Core/Rules.hs b/src/Hakyll/Core/Rules.hs
index ccfde53..28ae555 100644
--- a/src/Hakyll/Core/Rules.hs
+++ b/src/Hakyll/Core/Rules.hs
@@ -38,7 +38,7 @@ import Hakyll.Core.Writable
-- added to the runtime if possible, since other items might depend upon them.
--
data CompileRule = CompileRule CompiledItem
- | MetaCompileRule [(Identifier, Compiler () CompiledItem)]
+ | MetaCompileRule [(Identifier, Compiler () CompileRule)]
-- | A collection of rules for the compilation process
--
@@ -119,4 +119,4 @@ addCompilers :: (Binary a, Typeable a, Writable a)
addCompilers identifier compiler = RulesM $ tell $ RuleSet mempty $
[(identifier, compiler >>^ makeRule)]
where
- makeRule = MetaCompileRule . map (second (>>^ compiledItem))
+ makeRule = MetaCompileRule . map (second (>>^ CompileRule . compiledItem))