From f1e726be69b7ed78f7b8f7eed4b41305b125a3bb Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Fri, 7 Jan 2011 14:34:31 +0100
Subject: Renaming for consistency

---
 src/Hakyll/Core/Compiler.hs | 2 +-
 src/Hakyll/Core/Rules.hs    | 8 ++++----
 src/Hakyll/Core/Run.hs      | 2 +-
 3 files changed, 6 insertions(+), 6 deletions(-)

(limited to 'src/Hakyll')

diff --git a/src/Hakyll/Core/Compiler.hs b/src/Hakyll/Core/Compiler.hs
index 73ee359..f754860 100644
--- a/src/Hakyll/Core/Compiler.hs
+++ b/src/Hakyll/Core/Compiler.hs
@@ -52,7 +52,7 @@ runCompiler compiler identifier provider route' store modified = do
         -- In case we compiled an item, we will store a copy in the cache first,
         -- before we return control. This makes sure the compiled item can later
         -- be accessed by e.g. require.
-        ItemRule (CompiledItem x) ->
+        CompileRule (CompiledItem x) ->
             storeSet store "Hakyll.Core.Compiler.runCompiler" identifier x
 
         -- Otherwise, we do nothing here
diff --git a/src/Hakyll/Core/Rules.hs b/src/Hakyll/Core/Rules.hs
index ea3eadc..ccfde53 100644
--- a/src/Hakyll/Core/Rules.hs
+++ b/src/Hakyll/Core/Rules.hs
@@ -37,8 +37,8 @@ import Hakyll.Core.Writable
 -- * 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 = ItemRule CompiledItem
-                 | AddCompilersRule [(Identifier, Compiler () CompiledItem)]
+data CompileRule = CompileRule CompiledItem
+                 | MetaCompileRule [(Identifier, Compiler () CompiledItem)]
 
 -- | A collection of rules for the compilation process
 --
@@ -81,7 +81,7 @@ tellCompilers :: (Binary a, Typeable a, Writable a)
 tellCompilers compilers = RulesM $ tell $ RuleSet mempty $
     map (second boxCompiler) compilers
   where
-    boxCompiler = (>>> arr compiledItem >>> arr ItemRule)
+    boxCompiler = (>>> arr compiledItem >>> arr CompileRule)
 
 -- | Add a compilation rule
 --
@@ -119,4 +119,4 @@ addCompilers :: (Binary a, Typeable a, Writable a)
 addCompilers identifier compiler = RulesM $ tell $ RuleSet mempty $
     [(identifier, compiler >>^ makeRule)]
   where
-    makeRule = AddCompilersRule . map (second (>>^ compiledItem))
+    makeRule = MetaCompileRule . map (second (>>^ compiledItem))
diff --git a/src/Hakyll/Core/Run.hs b/src/Hakyll/Core/Run.hs
index ed9cea6..31280db 100644
--- a/src/Hakyll/Core/Run.hs
+++ b/src/Hakyll/Core/Run.hs
@@ -141,7 +141,7 @@ runCompilers ((id', compiler) : compilers) = Hakyll $ do
     result <- liftIO $ runCompiler compiler id' provider url store isModified
     liftIO $ putStrLn $ "Generated target: " ++ show id'
 
-    let ItemRule compiled = result
+    let CompileRule compiled = result
 
     case url of
         Nothing -> return ()
-- 
cgit v1.2.3