haskell - 在 Persistent Yesod 中进行多对多的最佳方式是什么？

Question

所以我的/config/models 看起来像这样。

Person
  name Text
Car
  name Text
PersonCar
  personId PersionId eq
  carId CarId eq
  UniquePersonCar personId carId

假设数据库中的输入是 Person "Batman" Person "Superman" Car "SUV" Car "Ford"分别。

我目前正在这样做以将它们链接到我的处理程序中。

runDB $ do
  person <- selectFirst [PersonName ==. "Batman"] []
  car    <- selectFirst [Carname ==. "SUV"] []
  let Entity personId _ = case person of
                            Just info -> infor
                            Nothing -> error "no such Person"
  let Entity carId _ = case car of
                            Just info -> infor
                            Nothing -> error "no such Car"
  _ <- insert $ PersonCar personId carId

有没有更简单的方法来做到这一点？是否有进行这种表达的约定？

Answer 1

不，目前这种查询没有简写(至少我能想到)。