# HG changeset patch
# User unc0rr
# Date 1253169444 0
# Node ID 0fd5dd1884ab25356c90ef6f93a61ec22ef48504
# Parent  f462ceff8abe9464232c9e3f34d687db42e2250b
Final fix

diff -r f462ceff8abe -r 0fd5dd1884ab gameServer/OfficialServer/DBInteraction.hs
--- 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}