Haskell Esqueleto 项目到记录列表而不是元组

Question

在我看到的所有示例中，esqueleto 的结果都被投影到一个元组列表中。由于缺少标签，这使得编码和维护变得更加困难。

例如：

previousLogItems <- select $ from $ \li -> do
        orderBy [desc (li ^. LogItemId)]
        limit 10
        return (li ^. LogItemId, li ^. LogItemTitle)

有没有办法让 esqueleto 将结果投影到记录列表中？

Answer 1

事实上，你自己构建了元组。确实：

previousLogItems <- select $ from $ \li -> do
        orderBy [desc (li ^. LogItemId)]
        limit 10
        return (li ^. LogItemId, li ^. LogItemTitle)

您因此使用(^.) :: (PersistEntity val, PersistField typ) => expr (Entity val) -> EntityField val typ -> expr (Value typ)“选择器”来获取字段并将它们包装到一个元组中。

如果你这样写：

previousLogItems >- select $ from $ \li -> do
        orderBy [desc (li ^. LogItemId)]
        limit 10
        return li

您将获得[Entity Foo] 的列表，其中Foo 是您查询的对象类型。

您可以使用entityVal :: Entity a -> a获取包裹在Entity中的实体，例如：

previousLogItems <- select $ from $ \li -> do
        orderBy [desc (li ^. LogItemId)]
        limit 10
        return li
mapM_ (print . entityVal) previousLogItems

假设实体当然是Show 的一个实例。