parsePredObjects :: CharParser st PredicateObjectList
parsePredObjects = do
    pr <- parsePredicate
    objs <- sepBy parseObject $ skips $ char ','
    return $ PredicateObjectList pr objs
parsePredObjects :: CharParser st PredicateObjectList
parsePredObjects = do
    pr <- parsePredicate
    objs <- sepBy parseObject $ skips $ char ','
    return $ PredicateObjectList pr objs
parsePredObjects = do
    pr <- parsePredicate
    objs <- sepBy parseObject $ skips $ char ','
    return $ PredicateObjectList pr objs