commaSep p = p `sepBy` (symbol ",")
commaSep p = p `sepBy` (char ',')
commaSep p = p `sepBy` (symbol ",")
commaSep p = p `sepBy` comma
commaSep p = p `sepBy` comma
commaSep p = p `sepBy` (symbol ",")
>>> match (decimal `sepBy` char ',') "1,2,3" [[1,2,3]] >>> match (decimal `sepBy` char ',') "" [[]]
>>> testParse (takeCharsWhile isLetter `sepBy` literal ",") "foo,bar,baz" Right [([],"foo,bar,baz"),(["foo"],",bar,baz"),(["foo","bar"],",baz"),(["foo","bar","baz"],"")]
commaSep p = p `sepBy'` (char ',')