--- a/gameServer/stresstest2.hs	Sat Mar 06 10:54:24 2010 +0000
+++ b/gameServer/stresstest2.hs	Sat Mar 06 10:59:20 2010 +0000
@@ -15,21 +15,21 @@
 #endif
 
 testing = Control.Exception.handle print $ do
-	delay <- randomRIO (100::Int, 300)
-	threadDelay delay
-	sock <- connectTo "127.0.0.1" (PortNumber 46631)
-	hClose sock
+    delay <- randomRIO (100::Int, 300)
+    threadDelay delay
+    sock <- connectTo "127.0.0.1" (PortNumber 46631)
+    hClose sock
 
 forks i = do
-	delay <- randomRIO (50::Int, 190)
-	if i `mod` 10 == 0 then putStr (show i) else putStr "."
-	hFlush stdout
-	threadDelay delay
-	forkIO testing
-	forks (i + 1)
+    delay <- randomRIO (50::Int, 190)
+    if i `mod` 10 == 0 then putStr (show i) else putStr "."
+    hFlush stdout
+    threadDelay delay
+    forkIO testing
+    forks (i + 1)
 
 main = withSocketsDo $ do
 #if !defined(mingw32_HOST_OS)
-	installHandler sigPIPE Ignore Nothing;
+    installHandler sigPIPE Ignore Nothing;
 #endif
-	forks 1
+    forks 1