summaryrefslogtreecommitdiff
path: root/src/Hakyll/Core/Rules.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Hakyll/Core/Rules.hs')
-rw-r--r--src/Hakyll/Core/Rules.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Hakyll/Core/Rules.hs b/src/Hakyll/Core/Rules.hs
index 28ae555..ae476b7 100644
--- a/src/Hakyll/Core/Rules.hs
+++ b/src/Hakyll/Core/Rules.hs
@@ -117,6 +117,7 @@ addCompilers :: (Binary a, Typeable a, Writable a)
-> Rules
-- ^ Resulting rules
addCompilers identifier compiler = RulesM $ tell $ RuleSet mempty $
- [(identifier, compiler >>^ makeRule)]
+ [(identifier, compiler >>> arr makeRule )]
where
- makeRule = MetaCompileRule . map (second (>>^ CompileRule . compiledItem))
+ makeRule = MetaCompileRule . map (second box)
+ box = (>>> fromDependency identifier >>^ CompileRule . compiledItem)