diff options
author | Joey Hess <joey@kitenet.net> | 2011-01-09 18:23:58 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-01-09 18:23:58 -0400 |
commit | c2b13a88bf2e8bdeb126e4f13a5aeb0fbe09a0c5 (patch) | |
tree | fc03a7fb1beefbbd2e4a6dffea4d27f8a3d123c3 /Command.hs | |
parent | 9de1192c574dc304f3e9dbfd01296f74c7ea5969 (diff) |
use concat
Diffstat (limited to 'Command.hs')
-rw-r--r-- | Command.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |