From 62a35162a0988f8d6e51796debceafda4d35c061 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 17 Jul 2012 18:35:56 -0400 Subject: bugfix --- Utility/Kqueue.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'Utility/Kqueue.hs') diff --git a/Utility/Kqueue.hs b/Utility/Kqueue.hs index 58fc5a5b7..9013dbe7e 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 -- cgit v1.2.3