Second try
authorunc0rr
Thu, 17 Sep 2009 06:37:10 +0000 (2009-09-17)
changeset 2386 f462ceff8abe
parent 2385 56b2e12b9eeb
child 2387 0fd5dd1884ab
Second try
gameServer/OfficialServer/DBInteraction.hs
--- a/gameServer/OfficialServer/DBInteraction.hs	Thu Sep 17 06:36:37 2009 +0000
+++ b/gameServer/OfficialServer/DBInteraction.hs	Thu Sep 17 06:37:10 2009 +0000
@@ -1,4 +1,4 @@
-{-# LANGUAGE CPP #-}
+{-# LANGUAGE CPP, ScopedTypeVariables #-}
 module OfficialServer.DBInteraction
 (
 	startDBConnection
@@ -52,7 +52,7 @@
 					writeChan coreChan $ ClientAccountInfo (clId, accountInfo)
 
 					return $ Map.insert clNick (currentTime, accountInfo) accountsCache
-				`onException`
+				`Exception.onException`
 					(unGetChan queries q)
 				else
 				do
@@ -60,10 +60,11 @@
 					return accountsCache
 
 		ClearCache -> return Map.empty
-		SendStats {} -> onException (
+		SendStats {} -> (
 				(hPutStrLn hIn $ show q) >>
 				hFlush hIn >>
 				return accountsCache)
+				`Exception.onException`
 				(unGetChan queries q)
 
 	pipeDbConnectionLoop queries coreChan hIn hOut updatedCache