trimLeading :: [String] -> [String]
trimLeading (x1:xs) | length x1 == 1 = ([head xs]++tail xs)
                    | elem '=' x1 = [drop 1 (dropWhile (/= paramaterDelimiter) x1)]++(xs)
                    | otherwise = xs
trimLeading :: [String] -> [String]
trimLeading (x1:xs) | length x1 == 1 = ([head xs]++tail xs)
                    | elem '=' x1 = [drop 1 (dropWhile (/= paramaterDelimiter) x1)]++(xs)
                    | otherwise = xs
trimLeading (x1:xs) | length x1 == 1 = ([head xs]++tail xs)
                    | elem '=' x1 = [drop 1 (dropWhile (/= paramaterDelimiter) x1)]++(xs)
                    | otherwise = xs