diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-01-07 14:40:33 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-01-07 14:40:33 +0100 |
| commit | 1bf95c0028b041ae57a28cf1592db75010fe0f08 (patch) | |
| tree | ec9579059ed5dd99741b32341814459cbc18955c | |
| parent | f1e726be69b7ed78f7b8f7eed4b41305b125a3bb (diff) | |
| download | hakyll-1bf95c0028b041ae57a28cf1592db75010fe0f08.tar.gz | |
Rank N compilers (compiler in compilers in...)
| -rw-r--r-- | src/Hakyll/Core/Rules.hs | 4 |
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)) |