Fix build
authorunc0rr
Thu, 17 Sep 2009 06:36:37 +0000
changeset 2385 56b2e12b9eeb
parent 2384 9098f0430b6b
child 2386 f462ceff8abe
Fix build
gameServer/OfficialServer/DBInteraction.hs
--- a/gameServer/OfficialServer/DBInteraction.hs	Wed Sep 16 14:45:00 2009 +0000
+++ b/gameServer/OfficialServer/DBInteraction.hs	Thu Sep 17 06:36:37 2009 +0000
@@ -8,11 +8,7 @@
 import System.Process
 import System.IO
 import Control.Concurrent
-#if defined(NEW_EXCEPTIONS)
-import qualified Control.OldException as Exception
-#else
 import qualified Control.Exception as Exception
-#endif
 import Control.Monad
 import qualified Data.Map as Map
 import Monad
@@ -38,18 +34,8 @@
 
 
 #if defined(OFFICIAL_SERVER)
--------------------------------------------------------------------
--- 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.Exception)
--- to be deleted --------------------------------------------------
--------------------------------------------------------------------
-
-
 pipeDbConnectionLoop queries coreChan hIn hOut accountsCache =
-	Exception.handle (\e -> warningM "Database" (show e) >> return accountsCache) $
+	Exception.handle (\(e :: Exception.IOException) -> warningM "Database" (show e) >> return accountsCache) $
 	do
 	q <- readChan queries
 	updatedCache <- case q of