From 9d85baa31425e04f0eb79e43c09c8d4e4a414c6b Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 30 Dec 2011 17:54:09 -0400
Subject: improve wording

---
 Command/Sync.hs | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'Command')

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
-- 
cgit v1.2.3