diff options
author | Joey Hess <joey@kitenet.net> | 2010-10-28 12:40:05 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2010-10-28 12:40:05 -0400 |
commit | 045b051ec10023afc2e62895032527d5b5130495 (patch) | |
tree | a438d96566ccebbccf5c1ec1d35e43d2c5097578 /GitQueue.hs | |
parent | 9c7b3dce9e8f964ed60dd45bca580a46ff8a5ed5 (diff) |
got rid of almost all 'return ()'
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)) |