diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-08-06 17:09:23 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-08-06 17:09:23 -0400 |
| commit | 8f1a9ef8b5e914bbe447733650a5848fc553c708 (patch) | |
| tree | 6ba3acbc6772ef60889cf975fb526502a3d49a49 /Assistant/Threads/Committer.hs | |
| parent | 05ed196ce5144154e8bbfbdc3cdcae90bd1c8a60 (diff) | |
added an alert after a file transfer
Diffstat (limited to 'Assistant/Threads/Committer.hs')
| -rw-r--r-- | Assistant/Threads/Committer.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Assistant/Threads/Committer.hs b/Assistant/Threads/Committer.hs index 095c8feac..5aadcc02a 100644 --- a/Assistant/Threads/Committer.hs +++ b/Assistant/Threads/Committer.hs @@ -198,6 +198,8 @@ 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 |