diff options
Diffstat (limited to 'Command/Sync.hs')
| -rw-r--r-- | Command/Sync.hs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/Command/Sync.hs b/Command/Sync.hs index 458a114df..790bf53b5 100644 --- a/Command/Sync.hs +++ b/Command/Sync.hs @@ -31,14 +31,14 @@ seek args = do !branch <- currentBranch let syncbranch = Git.Ref.under "refs/heads/synced/" branch remotes <- syncRemotes syncbranch args - return $ - [ commit - , mergeLocal branch - ] ++ - [ update remote branch | remote <- remotes ] ++ - [ mergeAnnex ] ++ - [ pushLocal syncbranch ] ++ - [ pushRemote remote branch syncbranch | remote <- remotes ] + return $ concat $ + [ [ commit ] + , [ mergeLocal branch ] + , [ update remote branch | remote <- remotes ] + , [ mergeAnnex ] + , [ pushLocal syncbranch ] + , [ pushRemote remote branch syncbranch | remote <- remotes ] + ] syncRemotes :: Git.Ref -> [String] -> Annex [Remote.Remote Annex] syncRemotes branch [] = defaultSyncRemotes branch |