mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

add alert when committing

Browse source
This commit is contained in:
Joey Hess 2012-08-02 14:02:35 -04:00
parent e21a32627f
commit 74fc9fcbe6
2 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Assistant/Alert.hs
View file

@ -189,6 +189,9 @@ activityAlert header message = baseActivityAlert
startupScanAlert :: Alert startupScanAlert :: Alert
startupScanAlert = activityAlert Nothing "Performing startup scan" startupScanAlert = activityAlert Nothing "Performing startup scan"
commitAlert :: Alert
commitAlert = activityAlert Nothing "Committing changes to git"
pushAlert :: [Remote] -> Alert pushAlert :: [Remote] -> Alert
pushAlert rs = activityAlert Nothing $ pushAlert rs = activityAlert Nothing $
"Syncing with " ++ unwords (map Remote.name rs) "Syncing with " ++ unwords (map Remote.name rs)

4
Assistant/Threads/Committer.hs
View file

@ -54,7 +54,9 @@ commitThread st changechan commitchan transferqueue dstatus = runEvery (Seconds
, show (length readychanges) , show (length readychanges)
, "changes" , "changes"
] ]
void $ tryIO $ runThreadState st commitStaged void $ alertWhile dstatus commitAlert $
tryIO (runThreadState st commitStaged)
>> return True
recordCommit commitchan (Commit time) recordCommit commitchan (Commit time)
else refill readychanges else refill readychanges
else refill changes else refill changes