@@ -38,7 +38,7 @@ import Hakyll.Core.Writable
3838-- added to the runtime if possible, since other items might depend upon them.
3939--
4040data CompileRule = CompileRule CompiledItem
41− | MetaCompileRule [(Identifier, Compiler () CompiledItem)]
41+ | MetaCompileRule [(Identifier, Compiler () CompileRule)]
4242
4343-- | A collection of rules for the compilation process
4444--
@@ -119,4 +119,4 @@ addCompilers :: (Binary a, Typeable a, Writable a)
119119addCompilers identifier compiler = RulesM $ tell $ RuleSet mempty $
120120 [(identifier, compiler >>^ makeRule)]
121121 where
122− makeRule = MetaCompileRule . map (second (>>^ compiledItem))
122+ makeRule = MetaCompileRule . map (second (>>^ CompileRule . compiledItem))