getPeopleKeys

Question

在Yesod中是否可以处理包含数据集合的表单？

我有一个用户可以添加多个人的表单，在前端，当前形式如下：

{ people.map((person, key) => (
  <td>
    <input type="hidden" name={ `person[${key}][firstName]` } value={person.firstName} />
    <input type="hidden" name={ `person[${key}][lastName]` } value={person.lastName} />
    { person.firstName } { person.lastName }
  </td>
)) }

然后我希望能够像这样将其转换到后端：

[Person "Michael" "Snoyman", Person "Ed" "Kmett"]

此列表的长度是可变的，因此它在people值中的人数可以与用户喜欢的一样多。到目前为止，我一直无法弄清楚如何使用Yesod中的FormInput复制这种东西。

Answer 1

您可以通过定义FormInput函数来创建自己的unFormInput。此功能可以从表单中提取字段名称，提取键，然后可以使用ireq来推广相关字段。

这可能看起来像

getPeople :: FormInput (your handler type) [People]
getPeople = FormInput $ \m l env fenv ->
    (unFormInput (peopleField peopleKeys)) m l env fenv
        where
            peopleKeys = getPeopleKeys env

getPeopleKeys

此帮助器功能将为您表单中的人员生成所有键值。它们还不需要是有效的，因为稍后会进行字段解析。

getPeopleKeys :: Env -> [Text]
getPeopleKeys env = mapMaybe extractKey (keys env)
    where
        extractKey :: Text -> Maybe Text
        extractKey key = ... -- you could use e.g. regex here
                             -- to pull the keys out of the field names
                             -- and return Nothing otherwise

peopleField

此帮助程序将产生FormInput。

获取键列表，
从每个生成一个FormInput
1. 为名字和姓氏生成一个字段
2. 将这些字段转换为FormInput s
3. 产生一个FormInput，将它们组合成一个Person
将FormInput的结果合并为FormInput ... [Person]

peopleField :: Monad m => RenderMessage (HandlerSite m) FormMessage => [Text] -> FormInput m [Person]
peopleField = mapM personField
    where
        personField :: Text -> Field ... Person
        personField key = (liftA2 (Person)) (personFNameField) (personLNameField)
            where
                personFNameField = (ireq hiddenField) . fNameField key
                personLNameField = (ireq hiddenField) . lNameField key

fNameField key = ... -- this outputs "person[${key}][firstName]"
lNameField key = ... -- etc.

以Yesod形式处理数据收集

1 个答案:

getPeopleKeys

peopleField