# HG changeset patch # User unc0rr # Date 1243396139 0 # Node ID c49832b4bb38e1af13a25fa276253b9bb01ccc2c # Parent a3f987f1ddcdf25f11eb7acc8a50be85a475d011 Fix server compilation diff -r a3f987f1ddcd -r c49832b4bb38 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