leftJoinF在Opaleye和IfPP

Question

我想使用LEFT JOIN来获取产品及其（可选）属性。 我有类似的类型：

type ProductPGR = ProductPoly (Column (PGID Product)) (Column PGText)
type ProductAttributePGR = ProductAttributePoly (Column (PGID ProductAttribute)) (Column (PGID Product)) (Column PGInt4)

我打算使用：

  (p :: ProductPGR, pa :: Maybe ProductAttributePGR) <- leftJoinF
    (\p' pa' -> (p', Just pa'))
    (\p'     -> (p', Nothing))
    (\p' pa' -> productId p' .== paProductId pa')
    productQuery
    productAttributeQuery -< ()

这不能编译，因为：

No instance for (Default
                     IfPP
                     (Maybe
                        (ProductAttributePoly
                           (Column (PGID ProductAttribute))
                           (Column (PGID Product))
                           (Column PGInt4))))
                     (Maybe
                        (ProductAttributePoly
                           (Column (PGID ProductAttribute))
                           (Column (PGID Product))
                           (Column PGInt4))))
arising from a use of ‘leftJoinF’

我真的应该定义这个实例吗？它是什么，我该怎么做？

或者，如果我不应该使用Maybe，我还能做什么？

Answer 1

您无法从功能性联接返回Maybe。功能联接允许您在隐藏Nullable检查的意义上避免使用IS NULL。它不允许你“将可空性”提升到Haskell一侧。