Permalink
Browse files

Revert "Add small diagnostic putStrLn when shutting down servers."

This reverts commit 40ddb9e.
  • Loading branch information...
1 parent 3835d93 commit 2e178d76638d4d47f84ec37cdd3f6826a00123de @gregorycollins gregorycollins committed Sep 19, 2012
Showing with 3 additions and 5 deletions.
  1. +3 −5 test/suite/TestSuite.hs
View
@@ -46,20 +46,18 @@ main = withSocketsDo $ do
Test.Blackbox.startTestServer port sslport
defaultMain (tests ++ concatMap blackbox bends) `finally` do
- putStrLn "shutting down test servers..."
mapM_ killThread $ map fst tinfos
mapM_ takeMVar $ map snd tinfos
- where
- tests = [ testGroup "Snap.Internal.Http.Parser.Tests"
+ where tests =
+ [ testGroup "Snap.Internal.Http.Parser.Tests"
Snap.Internal.Http.Parser.Tests.tests
, testGroup "Snap.Internal.Http.Server.Tests"
Snap.Internal.Http.Server.Tests.tests
, testGroup "Snap.Internal.Http.Server.TimeoutManager.Tests"
Snap.Internal.Http.Server.TimeoutManager.Tests.tests
]
-
- blackbox (port, sslport) =
+ blackbox (port, sslport) =
[ testGroup ("Test.Blackbox")
$ Test.Blackbox.tests port
, testGroup ("Test.Blackbox SSL")

0 comments on commit 2e178d7

Please sign in to comment.