diff options
| -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 |