diff options
Diffstat (limited to 'Assistant')
| -rw-r--r-- | Assistant/Threads/Committer.hs | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/Assistant/Threads/Committer.hs b/Assistant/Threads/Committer.hs index b40b8ad28..585dfde9b 100644 --- a/Assistant/Threads/Committer.hs +++ b/Assistant/Threads/Committer.hs @@ -247,9 +247,7 @@ safeToAdd delayadd pending inprocess = do let inprocess' = inprocess ++ catMaybes (map mkinprocess $ zip pending keysources) openfiles <- S.fromList . map fst3 . filter openwrite <$> findopenfiles (map keySource inprocess') - liftIO $ print openfiles let checked = map (check openfiles) inprocess' - liftIO $ print checked {- If new events are received when files are closed, - there's no need to retry any changes that cannot |