Remove debug output
commitcd6d968187df77523f219f82540e3b65fe94a1ca
authorJasper Van der Jeugt <jaspervdj@gmail.com>
dateWed 23 Feb 2011, 13:48 (16 years ago)
parent5abc3d8
src-inotify/Hakyll/Web/Preview/Poll.hs−1
@@ -45,7 +45,6 @@ previewPoll _ resources callback = do
4545
4646 -- Add a watcher for every directory
4747 forM_ directories $ \directory -> do
48− putStrLn $ "Adding watch for " ++ directory
4948 _ <- addWatch inotify [Modify] directory $ \e -> case e of
5049 (Modified _ (Just p)) -> ifResource $ directory </> p
5150 _ -> return ()
src/Hakyll/Main.hs+1−3
@@ -88,9 +88,7 @@ preview configuration rules port = do
8888
8989 -- Get the resource list and a callback for the preview poll
9090 let resources = rulesResources ruleSet
91− callback = do
92− putStrLn "In TL callback"
93− build configuration rules
91+ callback = build configuration rules
9492
9593 -- Fork a thread polling for changes
9694 _ <- forkIO $ previewPoll configuration resources callback