got rid of almost all 'return ()'

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))