使用Esqueleto处理列表类型

Question

我将数据类型定义为：

data ComitteeView = CommitteeView { committeeId :: CommitteeId
                                  , committeeMembers :: [Person] 
                                  }

data CommitteesView = CommitteesView { committeeView :: [CommitteeView] }

现在，就目前而言，我有一个持久模型定义为：

Person
  name  Text

Committee
  name  Text

CommitteePerson
  personId    PersonId
  committeeId CommitteeId

我可以使用Esqueleto很容易地创建一个查询来填充委托视图。它会是这样的：

getCommitteeView cid = 
  CommitteeView <$> runDB $ 
    select $
      from (person `InnerJoin` pxc `InnerJoin` committee) -> do
        on  (committee ^. CommitteeId ==. pxc ^. CommitteePersonCommitteeId)
        on  (person ^. PersonId       ==. pxc ^. CommitteePersonPersonId)
        where_ (committee ^. CommitteePersonCommitteeId ==. val cid)
        return person

现在，考虑填充CONTTEESView的问题。原则上，我们通过在上面的查询中运行子查询来获得足够的数据来填充。好的，很公平。现在如何在SQL中使用“group by Haskell-list”，如group by？如何折叠行，以便最终获得人员列表列表？

我的印象是esqueleto无法处理这种情况（即它没有可以这样做的组合器）。我的底层数据库显然不支持将Haskell列表作为列。但是，当然，我不可能是唯一面临这个问题的人。什么是有效的策略？将n个列表折叠成n个列表？或者运行n 1查询？还有其他选择吗？

Answer 1

Esqueleto并不意味着开箱即用地处理子列表（多维列表）列表！数据。List.group通过建议您的“cdk”只能分组列表本身，但不能分组您所要求的内容。

对于您的情况，我坚持建议您使用经典的SQL查询。您可以运行n 1个查询，但只有当它是罕见且不经常可用的函数时，才可以这样做，例如准备缓存数据（根据您的变量名称，我认为它可能不会被大量使用，值得一试）。对于大量使用，毫无疑问，您应该考虑使用经典SQL。

如果你愿意去https://github.com/prowdsponsor/esqueleto您会发现：

并非所有SQL功能都可用，但其中大多数功能都可以轻松添加（尤其是函数）。

所以你可以试着要求一个新功能。祝你好运！