diff --git a/Utility/Kqueue.hs b/Utility/Kqueue.hs
index 58fc5a5b7f..9013dbe7e2 100644
--- a/Utility/Kqueue.hs
+++ b/Utility/Kqueue.hs
@@ -44,6 +44,7 @@ isAdd (DeletedDir _) = False
 changedFile :: Change -> FilePath
 changedFile (Added f) = f
 changedFile (Deleted f) = f
+changedFile (DeletedDir f) = f
 
 data Kqueue = Kqueue 
 	{ kqueueFd :: Fd