Fixed not-equals typo

mdittmer · Dec 28, 2012 · bb9965c · bb9965c
1 parent af22927
commit bb9965c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/System/Win32/Notify.hs b/src/System/Win32/Notify.hs
@@ -127,7 +127,7 @@ watch (WatchManager mvarMap) dir watchSubTree varieties = do
 killWatch :: WatchId -> IO ()
 killWatch (WatchId tid1 tid2 handle) = do
     killThread tid1
-    if tid1 != tid2 then killThread tid2 else void
+    if tid1 /= tid2 then killThread tid2 else void
     closeHandle handle
 
 eventToVariety :: Event -> EventVariety