如何创建实体键表单字段

Question

我想创建一个新的表单字段来输入实体键，在这种情况下，可以使用ArticleId代替Integer字段吗？

有我的Article模型

Article
    title     Text
    content   Text
    userId    Int
    score     Int Maybe
    deriving  Show
    deriving  Eq

还有我的AForm Article处理程序

<$> areq intField (bfs ("Article Id" :: Text)) Nothing
<*> areq intField (bfs ("Tag Id" :: Text))     Nothing

我要这样做是为了避免在我的selectList中使用toSqlKey

谢谢！