diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-10-29 16:49:47 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-10-29 16:49:47 -0400 |
| commit | 2960a8011484fa3dad1cff55e8e412f4d4b1db84 (patch) | |
| tree | c36b30274a014f5a7d22dd072a3756a9d4b817cc /Assistant/Sync.hs | |
| parent | 0864097c212131b477b41907b3d59dacf6bc4fe9 (diff) | |
lift alertWhile
Diffstat (limited to 'Assistant/Sync.hs')
| -rw-r--r-- | Assistant/Sync.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Assistant/Sync.hs b/Assistant/Sync.hs index 4d5f8f625..6a2f5266e 100644 --- a/Assistant/Sync.hs +++ b/Assistant/Sync.hs @@ -38,8 +38,7 @@ import Control.Concurrent reconnectRemotes :: Bool -> [Remote] -> Assistant () reconnectRemotes _ [] = noop reconnectRemotes notifypushes rs = void $ do - dstatus <- getAssistant daemonStatusHandle - alertWhile dstatus (syncAlert rs) <~> do + alertWhile (syncAlert rs) $ do (ok, diverged) <- sync =<< liftAnnex (inRepo Git.Branch.current) scanremotes <- getAssistant scanRemoteMap |