diff options
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 |