Fix split
authorunc0rr
Tue, 08 Mar 2011 22:18:35 +0300
changeset 4993 905b349af377
parent 4992 408301a9d2d6
child 4994 2d9a52d6ea24
Fix split
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 ()