Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gameServer/OfficialServer/DBInteraction.hs
changeset 2129 8664554d5547
parent 2126 cb249fa8e3da
child 2155 d897222d3339 
--- a/gameServer/OfficialServer/DBInteraction.hs	Wed May 27 15:55:14 2009 +0000
+++ b/gameServer/OfficialServer/DBInteraction.hs	Wed May 27 18:13:06 2009 +0000
@@ -75,7 +75,7 @@
 		Control.Exception.handle (\e -> warningM "Database" (show e) >> return accountsCache) $ 
 			bracket
 				(createProcess (proc "./OfficialServer/extdbinterface" []) {std_in = CreatePipe, std_out = CreatePipe})
-				(\(_, _, _, processHandle) -> getProcessExitCode processHandle >> return (accountsCache))
+				(\(_, _, _, processHandle) -> return accountsCache)
 				(\(Just hIn, Just hOut, _, _) -> do
 				hSetBuffering hIn LineBuffering
 				hSetBuffering hOut LineBuffering
hedgewars