summaryrefslogtreecommitdiff
path: root/Assistant/Sync.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-10-30 19:12:05 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-10-30 19:12:05 -0400
commitfdfcf16d8d2d2475bcf9cabed3f5cd2e7a2ac4a5 (patch)
tree3a8b42f3ab3082f9a3e6010491ee5f44d250f24c /Assistant/Sync.hs
parentf3888b0fb68e48f8dc5b0e73caf0af6fc9fb34b7 (diff)
webapp: Make an initial, empty commit so there is a master branch
Several things only happen when on a branch, so make sure we're on one.
Diffstat (limited to 'Assistant/Sync.hs')
-rw-r--r--Assistant/Sync.hs5
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