diff -r a4a17b8df591 -r 7eaf82cf0890 gameServer/stresstest.hs
--- a/gameServer/stresstest.hs	Fri Sep 04 16:39:51 2009 +0000
+++ b/gameServer/stresstest.hs	Fri Sep 04 16:50:52 2009 +0000
@@ -23,15 +23,15 @@
 	hFlush sock
 	threadDelay 225000
 
-testing = Control.Exception.handle (\e -> putStrLn $ show e) $ do
+testing = Control.Exception.handle print $ do
 	putStrLn "Start"
 	sock <- connectTo "127.0.0.1" (PortNumber 46631)
 
 	num1 <- randomRIO (70000::Int, 70100)
 	num2 <- randomRIO (0::Int, 2)
 	num3 <- randomRIO (0::Int, 5)
-	let nick1 = show $ num1
-	let room1 = show $ num2
+	let nick1 = show num1
+	let room1 = show num2
 	case num2 of 
 		0 -> emulateSession sock $ session1 nick1 room1
 		1 -> emulateSession sock $ session2 nick1 room1