diff -r 84543ecae8c3 -r 3684faf5b3d1 gameServer/Opts.hs --- a/gameServer/Opts.hs Wed Feb 23 18:34:07 2011 +0300 +++ b/gameServer/Opts.hs Wed Feb 23 18:38:11 2011 +0300 @@ -7,10 +7,6 @@ import System.Environment import System.Console.GetOpt import Data.Maybe ( fromMaybe ) -#if defined(OFFICIAL_SERVER) -import qualified Data.ByteString.Char8 as B -import Network -#endif ------------------- import CoreTypes import Utils @@ -23,11 +19,6 @@ readListenPort , readDedicated -#if defined(OFFICIAL_SERVER) - , readDbLogin - , readDbPassword - readDbHost -#endif :: String -> ServerInfo -> ServerInfo @@ -39,12 +30,6 @@ where readDed = fromMaybe True (maybeRead str :: Maybe Bool) -#if defined(OFFICIAL_SERVER) -readDbLogin str opts = opts{dbLogin = B.pack str} -readDbPassword str opts = opts{dbPassword = B.pack str} -readDbHost str opts = opts{dbHost = B.pack str} -#endif - getOpts :: ServerInfo -> IO ServerInfo getOpts opts = do args <- getArgs