module Opaleye.Binary where
import Opaleye.QueryArr (Query)
import qualified Opaleye.Internal.Binary as B
import qualified Opaleye.Internal.PrimQuery as PQ
import Data.Profunctor.Product.Default (Default, def)
unionAll :: Default B.Binaryspec columns columns =>
Query columns -> Query columns -> Query columns
unionAll = unionAllExplicit def
union :: Default B.Binaryspec columns columns =>
Query columns -> Query columns -> Query columns
union = unionExplicit def
intersectAll :: Default B.Binaryspec columns columns =>
Query columns -> Query columns -> Query columns
intersectAll = intersectAllExplicit def
intersect :: Default B.Binaryspec columns columns =>
Query columns -> Query columns -> Query columns
intersect = intersectExplicit def
exceptAll :: Default B.Binaryspec columns columns =>
Query columns -> Query columns -> Query columns
exceptAll = exceptAllExplicit def
except :: Default B.Binaryspec columns columns =>
Query columns -> Query columns -> Query columns
except = exceptExplicit def
unionAllExplicit :: B.Binaryspec columns columns'
-> Query columns -> Query columns -> Query columns'
unionAllExplicit = B.sameTypeBinOpHelper PQ.UnionAll
unionExplicit :: B.Binaryspec columns columns'
-> Query columns -> Query columns -> Query columns'
unionExplicit = B.sameTypeBinOpHelper PQ.Union
intersectAllExplicit :: B.Binaryspec columns columns'
-> Query columns -> Query columns -> Query columns'
intersectAllExplicit = B.sameTypeBinOpHelper PQ.IntersectAll
intersectExplicit :: B.Binaryspec columns columns'
-> Query columns -> Query columns -> Query columns'
intersectExplicit = B.sameTypeBinOpHelper PQ.Intersect
exceptAllExplicit :: B.Binaryspec columns columns'
-> Query columns -> Query columns -> Query columns'
exceptAllExplicit = B.sameTypeBinOpHelper PQ.ExceptAll
exceptExplicit :: B.Binaryspec columns columns'
-> Query columns -> Query columns -> Query columns'
exceptExplicit = B.sameTypeBinOpHelper PQ.Except