diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-01-31 13:52:11 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-01-31 13:52:11 -0400 |
| commit | d007e58a5437daa72062453fc6f44c5beb7d271d (patch) | |
| tree | 54a132301bef084fec8ba2ce283b8ea505863f89 /GitQueue.hs | |
| parent | 4a0fe24f394e9c5489bacaa5630b3cabefdf95e4 (diff) | |
use mapM_
Diffstat (limited to 'GitQueue.hs')
| -rw-r--r-- | GitQueue.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/GitQueue.hs b/GitQueue.hs index d8ba86136..0cb64caef 100644 --- a/GitQueue.hs +++ b/GitQueue.hs @@ -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. |