diff -r 408301a9d2d6 -r 905b349af377 gameServer/Data/TConfig.hs --- 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 ()