从子查询中选择并加入Esqueleto中的子查询

时间:2017-11-06 22:28:59

标签: haskell esqueleto

我如何在Esqueleto做select ... from (select ...) join (select ...)

我知道我可以使用Persistent中的rawSql,但我想避免这种情况。

对于记录,这是完整的查询:

select q.uuid, q.upvotes, q.downvotes, count(a.parent_uuid), max(a.isAccepted) as hasAccepted
from
  (select post.uuid, post.title, sum(case when (vote.type = 2) then 1 else 0 end) as upvotes, sum(case when (vote.type = 3) then 1 else 0 end) as downvotes
    from post left outer join vote on post.uuid = vote.post_id
    where post.parent_uuid is null
    group by post.uuid
    order by post.created_on desc
  ) q
left outer join
  (select post.parent_uuid, max(case when (vote.type = 1) then 1 else 0 end) as isAccepted
    from post left outer join vote on post.uuid = vote.post_id
    where post.parent_uuid is not null
    group by post.id
  ) a
on a.parent_uuid = q.uuid
group by q.uuid
limit 10

1 个答案:

答案 0 :(得分:1)

我来这里是因为我有同样的问题。我想我们想要的东西是这样的:

fromSelect
  :: ( Database.Esqueleto.Internal.Language.From query expr backend a
     , Database.Esqueleto.Internal.Language.From query expr backend b
     )
  => (a -> query b)
  -> (b -> query c)
  -> query c

不幸的是,从Database.Esqueleto.Internal.Sql开始。FromClause:

-- | A part of a @FROM@ clause.
data FromClause =
    FromStart Ident EntityDef
  | FromJoin FromClause JoinKind FromClause (Maybe (SqlExpr (Value Bool)))
  | OnClause (SqlExpr (Value Bool))

我认为Esqueleto对此没有任何支持。它似乎仅支持简单的表名,并与具有布尔表达式的子句连接。我想添加对此支持的最困难的部分是处理表和列名称别名(as sql子句),因为^.期望有expr (Entity val)EntityField val typ。最简单的方法是将其更改为对两个操作数都使用StringText,但这不是非常安全的类型。我不确定哪种最佳选择是实现方式,以确保该类型安全。

编辑:在提供第一个参数的返回值作为第二个参数的参数时,最好忘记^.并让fromSelect生成别名。类型可能必须更改才能为这些别名腾出空间。这仅是在考虑from子查询,而不是联接。那是另一个问题。