parsePredicate :: CharParser st Predicate
parsePredicate = fmap Predicate $ skips uriP
parsePredicate :: CharParser st Predicate
parsePredicate = fmap Predicate $ skips uriP
parsePredicate = fmap Predicate $ skips uriP