selectList与其他字段不是Id字段yesod

Question

我正在尝试使用haskell Yesod在API中编写函数，并且需要显示具有与表相同的职员ID的属性列表。

有2个模型“ staff”和“ ph_attributes”，具有按字段的关系 “ staffId”，所以我想显示所有带有staffId：1的ph_attributes的列表

在路线文件中，我有这个

/ph_attributes_st/#staffId   Ph_attributesListStaff  GET

和功能在理论上接收其他表的staffId。

在航线上

/ph_attributes Ph_attributesR     POST GET
/ph_attributes/#Ph_attributesId   Ph_attributesSpecificR  GET PUT DELETE
/ph_attributes_st/#staffId   Ph_attributesListStaff  GET

和功能，这是有问题的

getPh_attributesListStaff :: staffId -> Handler Value
getPh_attributesListStaff idStaff = do
    ft <- runDB $ selectList (staffId ==. idStaff) []
    sendStatusJSON ok200 (object ["content" .= ft])

告诉我编译错误，所以我一直在尝试一些选项，但我被卡住了