gameServer/Data/TConfig.hs
changeset 4993 905b349af377
parent 4992 408301a9d2d6
child 4995 d3ca68e4860e
--- 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 ()