Make bare `tt` equivalent to `make check`

This helps prevent mishaps where people run the twisted tests but skip,
for example, the coding style checks.

1 files changed, 13 insertions, 11 deletions

diff --git a/tt.hs b/tt.hs
index b5228ab..5b9eb1a 100755
--- a/tt.hs
+++ b/tt.hs
@@ -96,20 +96,22 @@ rep :: Repetitions -> IO () -> IO ()
 rep Forever   = forever
 rep (Times n) = replicateM_ n
 
-runTests :: FilePath -> String -> Bool -> [String] -> [Flag] -> Repetitions
-         -> IO ()
-runTests testDir testVar inTree tests flags reps = do
+makeArgs :: [String] -> [Flag] -> FilePath -> String -> Bool -> IO [String]
+makeArgs []    []    _       _       _      = return ["check"]
+makeArgs tests flags testDir testVar inTree = do
     let buildPaths = expand testDir inTree . unprefix testDir
     tests' <- concat <$> mapM buildPaths tests
-    let t = case tests' of
-                    [] -> []
-                    _  -> [ testVar ++ "=" ++ (intercalate " " tests')
-                          -- This is because Mission Control is crap and has
-                          -- two different sets of tests.
-                          , "TWISTED_SEPARATE_TESTS="
-                          ]
-        args = [ "check-twisted", "-s", "-C", testDir ] ++ t ++ flags
+    let t = [ testVar ++ "=" ++ (intercalate " " tests')
+            -- This is because Mission Control is crap and has
+            -- two different sets of tests.
+            , "TWISTED_SEPARATE_TESTS="
+            ]
+    return $ [ "check-twisted", "-s", "-C", testDir ] ++ t ++ flags
 
+runTests :: FilePath -> String -> Bool -> [String] -> [Flag] -> Repetitions
+         -> IO ()
+runTests testDir testVar inTree tests flags reps = do
+    args <- makeArgs tests flags testDir testVar inTree
     rep reps $ invokeMake args
 
 unprefix :: FilePath -> String -> String