From c32e57262b1c4544c323ea04c21608aef1126765 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <m@jaspervdj.be>
Date: Wed, 21 Nov 2012 20:38:13 +0100
Subject: Add a runtime test

---
 src/Hakyll/Core/Runtime.hs | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'src/Hakyll/Core/Runtime.hs')

diff --git a/src/Hakyll/Core/Runtime.hs b/src/Hakyll/Core/Runtime.hs
index d219252..dba2af9 100644
--- a/src/Hakyll/Core/Runtime.hs
+++ b/src/Hakyll/Core/Runtime.hs
@@ -42,15 +42,14 @@ import           Hakyll.Core.Writable
 
 --------------------------------------------------------------------------------
 run :: Configuration -> Rules a -> IO RuleSet
-run configuration rules = do
+run config rules = do
     -- Initialization
     logger <- Logger.new Logger.Debug putStrLn
     Logger.header logger "Initialising..."
     Logger.message logger "Creating store..."
-    store  <- Store.new (inMemoryCache configuration) $
-        storeDirectory configuration
+    store <- Store.new (inMemoryCache config) $ storeDirectory config
     Logger.message logger "Creating provider..."
-    provider <- newProvider store (ignoreFile configuration) "."
+    provider <- newProvider store (ignoreFile config) $ providerDirectory config
     Logger.message logger "Running rules..."
     ruleSet  <- runRules rules provider
 
@@ -62,7 +61,7 @@ run configuration rules = do
     -- Build runtime read/state
     let compilers = rulesCompilers ruleSet
         read'     = RuntimeRead
-            { runtimeConfiguration = configuration
+            { runtimeConfiguration = config
             , runtimeLogger        = logger
             , runtimeProvider      = provider
             , runtimeStore         = store
-- 
cgit v1.2.3