parseName :: Parser String
parseName = satisfyMany1 (\c -> c /= ',' && (not . isSpace) c)
parseName :: Parser String
parseName = satisfyMany1 (\c -> c /= ',' && (not . isSpace) c)
parseName = satisfyMany1 (\c -> c /= ',' && (not . isSpace) c)