diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2014-12-29 17:25:59 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2014-12-29 17:30:20 -0400 |
| commit | e79780c0cac64c7b74754e47fc066aa0fc104345 (patch) | |
| tree | 1baa2628f02698a883f8d0bfc8d362307cfa1d11 /Utility/DirWatcher | |
| parent | daa420a9f299c331b24488d133d068ddc451b9aa (diff) | |
fixed all remaining build warnings on Windows
Diffstat (limited to 'Utility/DirWatcher')
| -rw-r--r-- | Utility/DirWatcher/Win32Notify.hs | 4 |
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 _ _) |