diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-02-23 13:48:40 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-02-23 13:48:40 +0100 |
| commit | cd6d968187df77523f219f82540e3b65fe94a1ca (patch) | |
| tree | 13456fe5a90516ecec1721987c099c6f2f612ed5 | |
| parent | 5abc3d87e234c2f92b6c5481200d1f813ca2ce6f (diff) | |
| download | hakyll-cd6d968187df77523f219f82540e3b65fe94a1ca.tar.gz | |
Remove debug output
| -rw-r--r-- | src-inotify/Hakyll/Web/Preview/Poll.hs | 1 | ||||
| -rw-r--r-- | src/Hakyll/Main.hs | 4 |
2 files changed, 1 insertions, 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 |