use concat

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

GitRepo.hs

@@ -438,7 +438,7 @@ encodeGitFile s = foldl (++) "\"" (map echar s) ++ "\""
 				e_num c = showoctal $ ord c
 				-- unicode character is decomposed to
 				-- Word8s and each is shown in octal
-				e_utf c = foldl (++) "" $ map showoctal $
+				e_utf c = concat $ map showoctal $
 						(encode [c] :: [Word8])