use forM_ in a few places
This commit is contained in:
parent
27056daccd
commit
755029ae0e
3 changed files with 6 additions and 6 deletions
|
@ -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.
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue