From cd6d968187df77523f219f82540e3b65fe94a1ca Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Wed, 23 Feb 2011 13:48:40 +0100
Subject: Remove debug output

---
 src-inotify/Hakyll/Web/Preview/Poll.hs | 1 -
 src/Hakyll/Main.hs                     | 4 +---
 2 files changed, 1 insertion(+), 4 deletions(-)

diff --git a/src-inotify/Hakyll/Web/Preview/Poll.hs b/src-inotify/Hakyll/Web/Preview/Poll.hs
index 69370ac..686f045 100644
--- a/src-inotify/Hakyll/Web/Preview/Poll.hs
+++ b/src-inotify/Hakyll/Web/Preview/Poll.hs
@@ -45,7 +45,6 @@ previewPoll _ resources callback = do
 
     -- Add a watcher for every directory
     forM_ directories $ \directory -> do
-        putStrLn $ "Adding watch for " ++ directory
         _ <- addWatch inotify [Modify] directory $ \e -> case e of
             (Modified _ (Just p)) -> ifResource $ directory </> p
             _                     -> return ()
diff --git a/src/Hakyll/Main.hs b/src/Hakyll/Main.hs
index a44d9fa..04b4cea 100644
--- a/src/Hakyll/Main.hs
+++ b/src/Hakyll/Main.hs
@@ -88,9 +88,7 @@ preview configuration rules port = do
 
     -- Get the resource list and a callback for the preview poll
     let resources = rulesResources ruleSet
-        callback = do
-            putStrLn "In TL callback"
-            build configuration rules
+        callback = build configuration rules
 
     -- Fork a thread polling for changes
     _ <- forkIO $ previewPoll configuration resources callback
-- 
cgit v1.2.3