use Win32-inotify

May mean the watcher works on Windows. Untested.

1 files changed, 8 insertions, 7 deletions

diff --git a/Utility/Win32Notify.hs b/Utility/Win32Notify.hs
index 3493b9e9a..edde5309c 100644
--- a/Utility/Win32Notify.hs
+++ b/Utility/Win32Notify.hs
@@ -11,32 +11,33 @@ import Common hiding (isDirectory)
 import Utility.DirWatcher.Types
 
 import System.Win32.Notify
+import qualified System.PosixCompat.Files as Files
 
 watchDir :: FilePath -> (FilePath -> Bool) -> WatchHooks -> IO WatchManager
 watchDir dir ignored hooks = do
 	scan dir
 	wm <- initWatchManager
 	void $ watchDirectory wm dir True [Create, Delete, Modify, Move] handle
-	retufn wm
+	return wm
   where
 	handle evt
 		| ignoredPath ignored (filePath evt) = noop
-		| otherwise = case eventToVariety evt of
-			Delete
+		| otherwise = case evt of
+			(Deleted _ _)
 				| isDirectory evt -> runhook delDirHook Nothing
 				| otherwise -> runhook delHook Nothing
-			Create
+			(Created _ _)
 				| isDirectory evt -> noop
 				| otherwise -> runhook addHook Nothing
-			Modify
+			(Modified _ _)
 				| isDirectory evt -> noop
 				{- Add hooks are run when a file is modified for 
 				 - compatability with INotify, which calls the add
 				 - hook when a file is closed, and so tends to call
 				 - both add and modify for file modifications. -}
 				| otherwise -> do
-					runHook addHook Nothing
-					runHook modifyHook Nothing
+					runhook addHook Nothing
+					runhook modifyHook Nothing
 	  where
 		runhook h s = maybe noop (\a -> a (filePath evt) s) (h hooks)