git.iko.soy/hakyll
on master help sign in
Remove debug output
cd6d968Jasper Van der Jeugt
src-inotify/Hakyll/Web/Preview/Poll.hs−1
compare with master
unifiedsplit
@@ -45,7 +45,6 @@ previewPoll _ resources callback = do
45
45
46 -- Add a watcher for every directory
46 -- Add a watcher for every directory
47 forM_ directories $ \directory -> do
47 forM_ directories $ \directory -> do
48− putStrLn $ "Adding watch for " ++ directory
49 _ <- addWatch inotify [Modify] directory $ \e -> case e of
48 _ <- addWatch inotify [Modify] directory $ \e -> case e of
50 (Modified _ (Just p)) -> ifResource $ directory </> p
49 (Modified _ (Just p)) -> ifResource $ directory </> p
51 _ -> return ()
50 _ -> return ()
src/Hakyll/Main.hs+1−3
@@ -88,9 +88,7 @@ preview configuration rules port = do
88
88
89 -- Get the resource list and a callback for the preview poll
89 -- Get the resource list and a callback for the preview poll
90 let resources = rulesResources ruleSet
90 let resources = rulesResources ruleSet
91− callback = do
92− putStrLn "In TL callback"
93− build configuration rules
91+ callback = build configuration rules
94
92
95 -- Fork a thread polling for changes
93 -- Fork a thread polling for changes
96 _ <- forkIO $ previewPoll configuration resources callback
94 _ <- forkIO $ previewPoll configuration resources callback