--- a/gameServer/OfficialServer/extdbinterface.hs	Thu Sep 03 10:02:50 2009 +0000
+++ b/gameServer/OfficialServer/extdbinterface.hs	Fri Sep 04 07:04:27 2009 +0000
@@ -1,3 +1,5 @@
+{-# LANGUAGE ScopedTypeVariables #-}
+
 module Main where
 
 import Prelude hiding (catch)
@@ -45,7 +47,7 @@
 
 
 dbConnectionLoop mySQLConnectionInfo =
-	Control.Exception.handle (\e -> return ()) $ handleSqlError $
+	Control.Exception.handle (\(_ :: IOException) -> return ()) $ handleSqlError $
 		bracket
 			(connectMySQL mySQLConnectionInfo)
 			(disconnect)