Fix server compilation
authorunc0rr
Wed, 27 May 2009 03:48:59 +0000
changeset 2123 c49832b4bb38
parent 2122 a3f987f1ddcd
child 2124 d39c61eaca15
Fix server compilation
gameServer/OfficialServer/DBInteraction.hs
--- a/gameServer/OfficialServer/DBInteraction.hs	Wed May 27 03:47:40 2009 +0000
+++ b/gameServer/OfficialServer/DBInteraction.hs	Wed May 27 03:48:59 2009 +0000
@@ -85,14 +85,14 @@
 	threadDelay (5 * 10^6)
 	pipeDbConnection updatedCache serverInfo
 
-dbConnectionLoop = pipeDbConnection Map.empty
+dbConnectionLoop =
+		if (not . null $ dbHost serverInfo) then
+			pipeDbConnection Map.empty
+		else
+			fakeDbConnection
 #else
 dbConnectionLoop = fakeDbConnection
 #endif
 
 startDBConnection serverInfo =
-	if (not . null $ dbHost serverInfo) then
-		forkIO $ dbConnectionLoop serverInfo
-		else
-		--forkIO $ fakeDbConnection serverInfo
-		forkIO $ pipeDbConnection Map.empty serverInfo
+	forkIO $ dbConnectionLoop serverInfo