# HG changeset patch
# User unc0rr
# Date 1250081585 0
# Node ID b20830087ed174b14334a1421dac7e16ecf24be3
# Parent  1addfe9fddb124c3506616af26f932bf44705e94
Now really fix

diff -r 1addfe9fddb1 -r b20830087ed1 gameServer/OfficialServer/DBInteraction.hs
--- a/gameServer/OfficialServer/DBInteraction.hs	Wed Aug 12 12:52:14 2009 +0000
+++ b/gameServer/OfficialServer/DBInteraction.hs	Wed Aug 12 12:53:05 2009 +0000
@@ -41,8 +41,9 @@
 -------------------------------------------------------------------
 -- borrowed from base 4.0.0 ---------------------------------------
 onException :: IO a -> IO b -> IO a
-onException io what = io `Exception.catch` \e -> do what
-                                          Exception.throw (e :: Exception)
+onException io what = io `Exception.catch` \e -> do
+		what
+		Exception.throw (e :: Exception.Exception)
 -- to be deleted --------------------------------------------------
 -------------------------------------------------------------------