git.iko.soy/hakyll
on master help sign in
Rank N compilers (compiler in compilers in...)
1bf95c0Jasper Van der Jeugt
src/Hakyll/Core/Rules.hs+2−2
compare with master
unifiedsplit
@@ -38,7 +38,7 @@ import Hakyll.Core.Writable
38-- added to the runtime if possible, since other items might depend upon them.
38-- added to the runtime if possible, since other items might depend upon them.
39--
39--
40data CompileRule = CompileRule CompiledItem
40data CompileRule = CompileRule CompiledItem
41− | MetaCompileRule [(Identifier, Compiler () CompiledItem)]
41+ | MetaCompileRule [(Identifier, Compiler () CompileRule)]
42
42
43-- | A collection of rules for the compilation process
43-- | A collection of rules for the compilation process
44--
44--
@@ -119,4 +119,4 @@ addCompilers :: (Binary a, Typeable a, Writable a)
119addCompilers identifier compiler = RulesM $ tell $ RuleSet mempty $
119addCompilers identifier compiler = RulesM $ tell $ RuleSet mempty $
120 [(identifier, compiler >>^ makeRule)]
120 [(identifier, compiler >>^ makeRule)]
121 where
121 where
122− makeRule = MetaCompileRule . map (second (>>^ compiledItem))
122+ makeRule = MetaCompileRule . map (second (>>^ CompileRule . compiledItem))