Pass -s when called with no arguments

1 files changed, 1 insertions, 1 deletions

diff --git a/tt.hs b/tt.hs
index 09a6c4b..efc7002 100755
--- a/tt.hs
+++ b/tt.hs
@@ -97,7 +97,7 @@ rep Forever   = forever
 rep (Times n) = replicateM_ n
 
 makeArgs :: [String] -> [Flag] -> FilePath -> String -> Bool -> IO [String]
-makeArgs []    []    _       _       _      = return ["check", "V=0"]
+makeArgs []    []    _       _       _      = return ["check", "-s", "V=0"]
 makeArgs tests flags testDir testVar inTree = do
     let buildPaths = expand testDir inTree . unprefix testDir
     tests' <- concat <$> mapM buildPaths tests