close unreproducible bug and remove expensive code added to debug it
This commit is contained in:
parent
d437a7708f
commit
64514a3db3
2 changed files with 2 additions and 9 deletions
|
@ -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,
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue