diff options
author | Joey Hess <joey@kitenet.net> | 2012-11-03 14:16:17 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-11-03 14:16:17 -0400 |
commit | 1279d72b4e4fe77abb983954dc937021559d4169 (patch) | |
tree | 6c7d718be97634ddaaa2a9dd90637363cc0ebeb0 /Assistant/Sync.hs | |
parent | 85eb13a57a7c0c4f2df46ab4c01c434585370999 (diff) |
refactor XMPP client
Diffstat (limited to 'Assistant/Sync.hs')
-rw-r--r-- | Assistant/Sync.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/Assistant/Sync.hs b/Assistant/Sync.hs index c2c81c57d..1ded407fe 100644 --- a/Assistant/Sync.hs +++ b/Assistant/Sync.hs @@ -9,6 +9,8 @@ module Assistant.Sync where import Assistant.Common import Assistant.Pushes +import Assistant.NetMessager +import Assistant.Types.NetMessager import Assistant.Alert import Assistant.DaemonStatus import Assistant.ScanRemotes @@ -102,7 +104,8 @@ pushToRemotes now notifypushes remotes = do if null failed then do when notifypushes $ - notifyPush (map Remote.uuid succeeded) + sendNetMessage $ NotifyPush $ + map Remote.uuid succeeded return True else if shouldretry then retry branch g u failed @@ -124,7 +127,8 @@ pushToRemotes now notifypushes remotes = do inParallel (pushfallback g u branch) rs updatemap succeeded failed when (notifypushes && (not $ null succeeded)) $ - notifyPush (map Remote.uuid succeeded) + sendNetMessage $ NotifyPush $ + map Remote.uuid succeeded return $ null failed push g branch remote = Command.Sync.pushBranch remote branch g |