--- a/gameServer/OfficialServer/DBInteraction.hs	Thu Sep 17 06:37:10 2009 +0000
+++ b/gameServer/OfficialServer/DBInteraction.hs	Thu Sep 17 06:37:24 2009 +0000
@@ -75,7 +75,7 @@
 
 pipeDbConnection accountsCache serverInfo = do
 	updatedCache <-
-		Exception.handle (\e -> warningM "Database" (show e) >> return accountsCache) $ do
+		Exception.handle (\(e :: Exception.IOException) -> warningM "Database" (show e) >> return accountsCache) $ do
 			(Just hIn, Just hOut, _, _) <- createProcess (proc "./OfficialServer/extdbinterface" [])
 					{std_in = CreatePipe,
 					std_out = CreatePipe}