diff options
Diffstat (limited to 'GitQueue.hs')
-rw-r--r-- | GitQueue.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/GitQueue.hs b/GitQueue.hs index 6a68edb25..09b8037e6 100644 --- a/GitQueue.hs +++ b/GitQueue.hs @@ -16,6 +16,7 @@ import qualified Data.Map as M import System.IO import System.Cmd.Utils import Data.String.Utils +import Monad (unless) import qualified GitRepo as Git @@ -52,9 +53,7 @@ run repo queue = do - Complicated by commandline length limits. -} runAction :: Git.Repo -> Action -> [FilePath] -> IO () runAction repo action files = do - if (null files) - then return () - else runxargs + unless (null files) runxargs where runxargs = pOpen WriteToPipe "xargs" (["-0", "git", subcommand action] ++ (params action)) |