mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

avoid list traverse on queue

Browse source 
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.
This commit is contained in:
Joey Hess 2011-04-07 15:00:06 -04:00
parent 4ea0b7c288
commit 135d75f2b9
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
GitQueue.hs
View file

@ -57,7 +57,11 @@ add :: Queue -> String -> [CommandParam] -> FilePath -> Queue
add (Queue n m) subcommand params file = Queue (n + 1) m' add (Queue n m) subcommand params file = Queue (n + 1) m'
where where
action = Action subcommand params 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. -} {- Number of items in a queue. -}
size :: Queue -> Int size :: Queue -> Int