From ce7889ba86fc15e2892db8190114e291128e9c62 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 29 Jul 2012 14:10:17 -0400
Subject: [PATCH] debuggery

---
 Assistant/Threads/Committer.hs | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/Assistant/Threads/Committer.hs b/Assistant/Threads/Committer.hs
index b3258f7299..f236159f98 100644
--- a/Assistant/Threads/Committer.hs
+++ b/Assistant/Threads/Committer.hs
@@ -190,6 +190,13 @@ safeToAdd st changes = runThreadState st $
 			tmpdir <- fromRepo gitAnnexTmpDir
 			openfiles <- S.fromList . map fst3 . filter openwrite <$>
 				liftIO (Lsof.queryDir tmpdir)
+
+			liftIO $ debug thisThread
+				[ "checking changes:"
+				, show changes
+				, "vs open files:"
+				, show openfiles
+				]
 			
 			let checked = map (check openfiles) changes