diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-08-02 14:02:35 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-08-02 14:02:35 -0400 |
| commit | 74fc9fcbe68ce7802d44499e8b5dc5c5d186ee66 (patch) | |
| tree | 873acc0b816f65c3b7c00cd1bed548ed40916298 /Assistant/Threads/Committer.hs | |
| parent | e21a32627fc600e6f7fa72929c95cfb49390dae3 (diff) | |
add alert when committing
Diffstat (limited to 'Assistant/Threads/Committer.hs')
| -rw-r--r-- | Assistant/Threads/Committer.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Assistant/Threads/Committer.hs b/Assistant/Threads/Committer.hs index cce8d5e2b..095c8feac 100644 --- a/Assistant/Threads/Committer.hs +++ b/Assistant/Threads/Committer.hs @@ -54,7 +54,9 @@ commitThread st changechan commitchan transferqueue dstatus = runEvery (Seconds , show (length readychanges) , "changes" ] - void $ tryIO $ runThreadState st commitStaged + void $ alertWhile dstatus commitAlert $ + tryIO (runThreadState st commitStaged) + >> return True recordCommit commitchan (Commit time) else refill readychanges else refill changes |