comprehensionExprToPred :: Traversal' QExpr QComprehensionExpr -> QComprehensionExpr -> State RuleState ComprehensionExprPred
comprehensionExprToPred path (ComprehensionExpr expr) = pComprehensionExpr <$> exprToPred (path._ComprehensionExpr) expr
comprehensionExprToPred :: Traversal' QExpr QComprehensionExpr -> QComprehensionExpr -> State RuleState ComprehensionExprPred
comprehensionExprToPred path (ComprehensionExpr expr) = pComprehensionExpr <$> exprToPred (path._ComprehensionExpr) expr
comprehensionExprToPred path (ComprehensionExpr expr) = pComprehensionExpr <$> exprToPred (path._ComprehensionExpr) expr