avoid list traverse on queue

I wanted to use M.insertWith' (\_ l -> file:l) action [] m , but the
order of the parameters and which to ignore is not clear, and
seems unsafe to rely on.

1 files changed, 5 insertions, 1 deletions

diff --git a/GitQueue.hs b/GitQueue.hs
index 480027fa0..be0fcfc4a 100644
--- a/GitQueue.hs
+++ b/GitQueue.hs
@@ -57,7 +57,11 @@ add :: Queue -> String -> [CommandParam] -> FilePath -> Queue
 add (Queue n m) subcommand params file = Queue (n + 1) m'
 	where
 		action = Action subcommand params
-		m' = M.insertWith' (++) action [file] m
+		-- There are probably few items in the map, but there
+		-- can be a lot of files per item. So, optimise adding
+		-- files.
+		m' = M.insertWith' const action files m
+		files = file:(M.findWithDefault [] action m)
 
 {- Number of items in a queue. -}
 size :: Queue -> Int