From 8306c2f6b3e63c7df1724ba9c03410ab6b0444bf Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Wed, 15 Oct 2008 08:13:29 +0000
Subject: [PATCH] tweak testrunner

---
 Tests.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Tests.hs b/Tests.hs
index 4b4e45b7b..5077508cd 100644
--- a/Tests.hs
+++ b/Tests.hs
@@ -15,7 +15,7 @@ import RegisterCommand
 -- quickcheck = mapM quickCheck ([
 --         ] :: [Bool])
 
-runtests = runTestTT $ tconcat [unittests, functests]
+runtests = do {putStrLn "Running tests.."; runTestTT $ tconcat [unittests, functests]}
 
 tconcat :: [Test] -> Test
 tconcat = foldr (\(TestList as) (TestList bs) -> TestList (as ++ bs)) (TestList [])