From 81b7460d53be0213afe05947190e2580a263600d Mon Sep 17 00:00:00 2001
From: Philipp Balzarek <p.balzarek@googlemail.com>
Date: Sun, 24 Jun 2012 16:12:15 +0200
Subject: [PATCH] Thread-safe error reporting in test client

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

diff --git a/tests/Tests.hs b/tests/Tests.hs
index de3d4bb..7929ed0 100644
--- a/tests/Tests.hs
+++ b/tests/Tests.hs
@@ -128,7 +128,7 @@ runMain debug number = do
               Right _ -> return ()
               Left e -> error $ show e
           debug' "session standing")
-          (\e -> liftIO (print (e ::Ex.SomeException) >> Ex.throwIO e) )
+          (\e -> debug' $ show  (e ::Ex.SomeException))
       sendPresence presenceOnline
       fork autoAccept
       sendPresence $ presenceSubscribe them