valueParser :: Parser Text
valueParser = takeWhile (\c -> c /= ';' && c /= '}' && c /= '{')
valueParser :: Parser Text
valueParser = takeWhile (\c -> c /= ';' && c /= '}' && c /= '{')
valueParser = takeWhile (\c -> c /= ';' && c /= '}' && c /= '{')