@@ -437,7 +437,7 @@ bindList b ((n, fc, t):bs) sc = b n fc t (bindList b bs sc)
437437{- | @commaSeparated p@ parses one or more occurences of `p`,
438438 separated by commas and optional whitespace. -}
439439commaSeparated :: MonadicParsing m => m a -> m [a]
440−commaSeparated p = p `sepBy1` (spaces >> char ',' >> spaces)
440+commaSeparated p = p `sepEndBy1` (spaces >> char ',' >> spaces)
441441
442442{- * Layout helpers -}
443443