diff --git a/Utility/Kqueue.hs b/Utility/Kqueue.hs
index 9013dbe7e2..c1a0a5cd60 100644
--- a/Utility/Kqueue.hs
+++ b/Utility/Kqueue.hs
@@ -240,9 +240,9 @@ runHooks kq hooks = do
 			forM_ changes $ dispatch (kqueueMap q')
 			loop q'
 
-		dispatch dirmap change@(Deleted _) = 
+		dispatch _ change@(Deleted _) = 
 			callhook delHook Nothing change
-		dispatch dirmap change@(DeletedDir _) =
+		dispatch _ change@(DeletedDir _) =
 			callhook delDirHook Nothing change
 		dispatch dirmap change@(Added _) =
 			withstatus change $ dispatchadd dirmap