summaryrefslogtreecommitdiff
path: root/Utility/DirWatcher/Win32Notify.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2014-12-29 17:25:59 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2014-12-29 17:30:20 -0400
commite79780c0cac64c7b74754e47fc066aa0fc104345 (patch)
tree1baa2628f02698a883f8d0bfc8d362307cfa1d11 /Utility/DirWatcher/Win32Notify.hs
parentdaa420a9f299c331b24488d133d068ddc451b9aa (diff)
fixed all remaining build warnings on Windows
Diffstat (limited to 'Utility/DirWatcher/Win32Notify.hs')
-rw-r--r--Utility/DirWatcher/Win32Notify.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Utility/DirWatcher/Win32Notify.hs b/Utility/DirWatcher/Win32Notify.hs
index ef4f385c5..54f34935a 100644
--- a/Utility/DirWatcher/Win32Notify.hs
+++ b/Utility/DirWatcher/Win32Notify.hs
@@ -17,10 +17,10 @@ watchDir :: FilePath -> (FilePath -> Bool) -> Bool -> WatchHooks -> IO WatchMana
watchDir dir ignored scanevents hooks = do
scan dir
wm <- initWatchManager
- void $ watchDirectory wm dir True [Create, Delete, Modify, Move] handle
+ void $ watchDirectory wm dir True [Create, Delete, Modify, Move] dispatch
return wm
where
- handle evt
+ dispatch evt
| ignoredPath ignored (filePath evt) = noop
| otherwise = case evt of
(Deleted _ _)