Thread-safe error reporting in test client

14 years ago · 81b7460d53
1 changed files with 1 additions and 1 deletions
--- 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