--- a/gameServer/Data/TConfig.hs Tue Mar 08 21:45:00 2011 +0300
+++ b/gameServer/Data/TConfig.hs Tue Mar 08 22:18:35 2011 +0300
@@ -56,7 +56,7 @@
-- |Reads a file and parses to a Map String String.
readConfig :: FilePath -> IO Conf
-readConfig path = liftM (M.fromList . map ((\(a, b) -> (filter (not . isSpace) a, dropWhile isSpace b)) . break (== '=')) . filter (not . null) . lines) $ readFile path
+readConfig path = liftM (M.fromList . map ((\(a, b) -> (filter (not . isSpace) a, dropWhile isSpace $ tail b)) . break (== '=')) . filter (not . null) . lines) $ readFile path
-- |Parses a parsed configuration back to a file.
writeConfig :: FilePath -> Conf -> IO ()