@@ -106,7 +106,7 @@ extendP = do
106 case extends of
106 case extends of
107 [] -> pure (Restrict TruePredicate)
107 [] -> pure (Restrict TruePredicate)
108 extends' ->
108 extends' ->
109− pure $ \expr -> foldl (\acc ext -> Extend ext acc) expr extends'
109+ pure $ \expr -> foldl (flip Extend) expr extends'
111semijoinP :: RelationalMarkerExpr a => Parser (RelationalExprBase a -> RelationalExprBase a -> RelationalExprBase a)
111semijoinP :: RelationalMarkerExpr a => Parser (RelationalExprBase a -> RelationalExprBase a -> RelationalExprBase a)
112semijoinP = do
112semijoinP = do