@@ -64,7 +64,7 @@ watchUpdates conf update = do
65 update' event provider = do
65 update' event provider = do
66 let path = provider </> eventPath event
66 let path = provider </> eventPath event
67− -- on windows
67+ -- on windows, a 'Modified' event is also sent on file deletion
68 fileExists <- doesFileExist path
68 fileExists <- doesFileExist path
70 when fileExists . void $ waitOpen path ReadMode (\_ -> update) 10
70 when fileExists . void $ waitOpen path ReadMode (\_ -> update) 10