# HG changeset patch
# User unc0rr
# Date 1299611915 -10800
# Node ID 905b349af37757f25de6527dd8bea022d1afbbba
# Parent  408301a9d2d612a06811033bb7676b523bd022fe
Fix split

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 ()