[英]Haskell Esqueleto - Maybe Keys don't bind on LeftOuterJoin
在使用maybe foreign key
的maybe foreign key
时,我遇到了一些麻烦。
我的模特:
OrderItem
productSnapshot ProductSnapshotId
ProductFlow
productInstance ProductInstanceId
orderItem OrderItemId Maybe
ProductSnapshot
productInstance ProductInstanceId
ProductInstance
code Text
和我的加入:
type Entities = [(Entity OrderItem, Entity ProductSnapshot, Entity ProductInstance, Maybe (Entity ProductFlow))]
loadEntities :: OrderItemId -> Handler Entities
loadEntities oiId = runDB
$ E.select
$ E.from $ \(oi `E.InnerJoin` ps `E.InnerJoin` pi `E.LeftOuterJoin` pf) -> do
E.on $ pf E.?. ProductFlowOrderItem E.==. E.just (oi ^. OrderItemId)
E.on $ pi ^. ProductInstanceId E.==. ps ^. ProductSnapshotProductInstance
E.on $ ps ^. ProductSnapshotId E.==. oi ^. OrderItemProductSnapshot
E.where_ (oi ^. OrderItemId E.==. E.val oiId)
return (oi, ps, pi, pf)
我尝试了Esqueleto
显示的Esqueleto
连接,但是出现以下错误:
Couldn't match type ‘Key OrderItem’ with ‘Maybe (Key OrderItem)’
Expected type: EntityField OrderItem (Maybe (Key OrderItem))
Actual type: EntityField OrderItem (Key OrderItem)
In the second argument of ‘(^.)’, namely ‘OrderItemId’
In the first argument of ‘E.just’, namely ‘(oi ^. OrderItemId)’
我认为这是因为我使用的是外键。 我尝试了其他方法,但遇到了奇怪的类型错误。 我想我不太了解这些连接的工作原理,因此请简要介绍一下E.^.
, E.just
和E.?.
会提高我的Esqueleto使用率。
我设法了解了问题并自己解决了,而不是
E.on $ pf E.?. ProductFlowOrderItem E.==. E.just (oi ^. OrderItemId)
用这个
E.on $ pf E.?. ProductFlowOrderItem E.==. (E.just . E.just) (oi ^. OrderItemId)
必须使类型匹配,因为我们使用的是E.?.
使用已经存在的Maybe
值,因此,我们必须将右侧Maybe (Maybe AType)
,否则将是错误的,并且我只使用E.just . E.just
E.just . E.just
将包装两次。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.