Как создать поле формы ключа сущности

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

Я хочу сделать это, чтобы избежать использования toSqlKey в моем списке выбора

Спасибо!