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

use forM_ in a few places

Browse source
This commit is contained in:
Joey Hess 2011-01-31 23:27:53 -04:00
parent 27056daccd
commit 755029ae0e
3 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

4
GitQueue.hs
View file

@ -16,7 +16,7 @@ import qualified Data.Map as M
import System.IO
import System.Cmd.Utils
import Data.String.Utils
import Control.Monad (unless)
import Control.Monad (unless, forM_)
import qualified GitRepo as Git
@ -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
forM_ (M.toList queue) $ uncurry $ runAction repo
return ()
{- Runs an Action on a list of files in a git repository.