close unreproducible bug and remove expensive code added to debug it

This commit is contained in:
Joey Hess 2012-09-28 12:56:58 -04:00
parent d437a7708f
commit 64514a3db3
2 changed files with 2 additions and 9 deletions

View file

@ -205,15 +205,6 @@ safeToAdd st changes = runThreadState st $
openfiles <- S.fromList . map fst3 . filter openwrite <$>
liftIO (Lsof.queryDir tmpdir)
-- TODO this is here for debugging a problem on
-- OSX, and is pretty expensive, so remove later
liftIO $ debug thisThread
[ "checking changes:"
, show changes
, "vs open files:"
, show openfiles
]
let checked = map (check openfiles) changes
{- If new events are received when files are closed,