use mapM_

This commit is contained in:
Joey Hess 2011-01-31 13:52:11 -04:00
parent 4a0fe24f39
commit d007e58a54
4 changed files with 4 additions and 4 deletions

View file

@ -45,7 +45,7 @@ add queue subcommand params file = M.insertWith (++) action [file] queue
{- Runs a queue on a git repository. -}
run :: Git.Repo -> Queue -> IO ()
run repo queue = do
_ <- mapM (uncurry $ runAction repo) $ M.toList queue
mapM_ (uncurry $ runAction repo) $ M.toList queue
return ()
{- Runs an Action on a list of files in a git repository.