From dac3fac342c2fb8610b6f1d83cbfd97a70cf17f1 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <m@jaspervdj.be>
Date: Thu, 8 Nov 2012 13:50:08 +0100
Subject: Rules will be in IO...

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

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

diff --git a/src/Hakyll/Core/Run.hs b/src/Hakyll/Core/Run.hs
index a777d0a..4842ea7 100644
--- a/src/Hakyll/Core/Run.hs
+++ b/src/Hakyll/Core/Run.hs
@@ -52,8 +52,8 @@ run configuration rules = do
     let (firstRun, oldGraph) = case graph of Store.Found g -> (False, g)
                                              _             -> (True, mempty)
 
-    let ruleSet = runRules rules provider
-        compilers = rulesCompilers ruleSet
+    ruleSet <- timed logger "Running rules" $ runRules rules provider
+    let compilers = rulesCompilers ruleSet
 
         -- Extract the reader/state
         reader = unRuntime $ addNewCompilers compilers
-- 
cgit v1.2.3