_addConfigValue line dic = let (key, val) = case List.elemIndex '=' line of
                                              Just i -> (take i line, drop (i + 1) line)
                                              Nothing -> error "Non comment, non section line missing ="
                           in Map.insert key (getItems key dic ++ [_getCfgFromString val]) dic
_addConfigValue line dic = let (key, val) = case List.elemIndex '=' line of
                                              Just i -> (take i line, drop (i + 1) line)
                                              Nothing -> error "Non comment, non section line missing ="
                           in Map.insert key (getItems key dic ++ [_getCfgFromString val]) dic
_addConfigValue line dic = let (key, val) = case List.elemIndex '=' line of
                                              Just i -> (take i line, drop (i + 1) line)
                                              Nothing -> error "Non comment, non section line missing ="
                           in Map.insert key (getItems key dic ++ [_getCfgFromString val]) dic