From c2b13a88bf2e8bdeb126e4f13a5aeb0fbe09a0c5 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 9 Jan 2011 18:23:58 -0400
Subject: use concat

---
 Command.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Command.hs')

diff --git a/Command.hs b/Command.hs
index b83e640b9..31bb1f1f9 100644
--- a/Command.hs
+++ b/Command.hs
@@ -64,7 +64,7 @@ data Command = Command {
 prepCmd :: Command -> [String] -> Annex [Annex Bool]
 prepCmd Command { cmdseek = seek } params = do
 	lists <- mapM (\s -> s params) seek
-	return $ map doCommand $ foldl (++) [] lists
+	return $ map doCommand $ concat lists
 
 {- Runs a command through the start, perform and cleanup stages -}
 doCommand :: CommandStart -> CommandCleanup
-- 
cgit v1.2.3