diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-07-29 14:10:17 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-07-29 14:10:17 -0400 |
| commit | ce7889ba86fc15e2892db8190114e291128e9c62 (patch) | |
| tree | 5ca4305ff73cc3a0f59e8ac8015cd2c8cab79a9a /Assistant | |
| parent | c4023f785834bc237e5fcdb69e275bbae10dd40b (diff) | |
debuggery
Diffstat (limited to 'Assistant')
| -rw-r--r-- | Assistant/Threads/Committer.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/Assistant/Threads/Committer.hs b/Assistant/Threads/Committer.hs index b3258f729..f236159f9 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 |