From 9eda3425a3153e0f226cc0e32b38c82cc7c806ef Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <m@jaspervdj.be>
Date: Sat, 10 Nov 2012 19:56:45 +0100
Subject: Remove metacompilation

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

(limited to 'src/Hakyll/Core/Rules')

diff --git a/src/Hakyll/Core/Rules/Internal.hs b/src/Hakyll/Core/Rules/Internal.hs
index 245d935..dc2badd 100644
--- a/src/Hakyll/Core/Rules/Internal.hs
+++ b/src/Hakyll/Core/Rules/Internal.hs
@@ -3,8 +3,7 @@
 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
 {-# LANGUAGE Rank2Types                 #-}
 module Hakyll.Core.Rules.Internal
-    ( CompileRule (..)
-    , RuleSet (..)
+    ( RuleSet (..)
     , RuleState (..)
     , RuleEnvironment (..)
     , RulesM (..)
@@ -30,24 +29,13 @@ import           Hakyll.Core.ResourceProvider
 import           Hakyll.Core.Routes
 
 
---------------------------------------------------------------------------------
--- | Output of a compiler rule
---
--- * The compiler will produce a simple item. This is the most common case.
---
--- * The compiler will produce more compilers. These new compilers need to be
---   added to the runtime if possible, since other items might depend upon them.
-data CompileRule = CompileRule CompiledItem
-                 | MetaCompileRule [(Identifier (), Compiler () CompileRule)]
-
-
 --------------------------------------------------------------------------------
 -- | A collection of rules for the compilation process
 data RuleSet = RuleSet
     { -- | Routes used in the compilation structure
       rulesRoutes    :: Routes
     , -- | Compilation rules
-      rulesCompilers :: [(Identifier (), Compiler () CompileRule)]
+      rulesCompilers :: [(Identifier (), Compiler () CompiledItem)]
     , -- | A set of the actually used files
       rulesResources :: Set (Identifier ())
     }
-- 
cgit v1.2.3