diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-02-19 23:18:15 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-02-19 23:18:15 -0400 |
| commit | ba91ab000a10cfad5d58d80d309cadaf40c3d0bd (patch) | |
| tree | bcb3dd363a4053405413cda68712f58c7bc8e8c7 /Assistant | |
| parent | 43aea5aeeebdc143cf5732a0e4a72d74ba49e6d1 (diff) | |
remove debug prints
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 |