diff options
Diffstat (limited to 'Assistant/Sync.hs')
-rw-r--r-- | Assistant/Sync.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Assistant/Sync.hs b/Assistant/Sync.hs index b071bc80f..1e94335ef 100644 --- a/Assistant/Sync.hs +++ b/Assistant/Sync.hs @@ -155,5 +155,6 @@ manualPull currentbranch remotes = do syncNewRemote :: Remote -> Assistant () syncNewRemote remote = do updateSyncRemotes - thread <- asIO2 reconnectRemotes - void $ liftIO $ forkIO $ thread False [remote] + thread <- asIO $ do + reconnectRemotes False [remote] + void $ liftIO $ forkIO $ thread |