mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fixed all remaining build warnings on Windows

Browse source
This commit is contained in:
Joey Hess 2014-12-29 17:25:59 -04:00
parent 67828b1c86
commit c9a3e80d32
13 changed files with 23 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Utility/DirWatcher/Win32Notify.hs
View file

@ -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 _ _)