From 1bf95c0028b041ae57a28cf1592db75010fe0f08 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Fri, 7 Jan 2011 14:40:33 +0100
Subject: Rank N compilers (compiler in compilers in...)

---
 src/Hakyll/Core/Rules.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Hakyll')

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))
-- 
cgit v1.2.3