Haskell / Yesod中的分组复选框

时间:2013-11-08 22:49:59

标签: haskell checkbox yesod

我目前正在Yesod网络平台上使用Haskell进行开发,我需要在我的一个网页中创建一个表单。此表单必须包含多个复选框,但需要将它们分组到类别中。例如,用户需要在10个复选框的列表中选择3个学科,5个项目,其中最多2个可以是武器。

我已经在Yesod网站上阅读了本书的部分内容,根据我的理解,我需要创建一个自定义字段来创建分组复选框。不幸的是,我对Haskell并不是很好(刚刚开始使用它1-2周前)而且我很难理解如何实现这一目标。作为参考,这是我在Yesod网站上读到的关于自定义字段的书的页面:http://www.yesodweb.com/book/forms

知道这一点,我的问题是:如何在Haskell / Yesod中创建分组复选框?

编辑:在我提供的链接中,我理解了Field(fieldView和fieldEnctype)的构造函数的最后两个值,它是第一个(fieldParse),我不知道如何为我的目的进行修改。以下是我引用的链接中的示例:

passwordConfirmField :: Field Handler Text
passwordConfirmField = Field
    { fieldParse = \rawVals _fileVals ->
        case rawVals of
            [a, b]
                | a == b -> return $ Right $ Just a
                | otherwise -> return $ Left "Passwords don't match"
            [] -> return $ Right Nothing
            _ -> return $ Left "You must enter two values"
    , fieldView = \idAttr nameAttr otherAttrs eResult isReq ->
        [whamlet|
            <input id=#{idAttr} name=#{nameAttr} *{otherAttrs} type=password>
            <div>Confirm:
            <input id=#{idAttr}-confirm name=#{nameAttr} *{otherAttrs} type=password>
        |]
    , fieldEnctype = UrlEncoded
    }

1 个答案:

答案 0 :(得分:4)

经过大量研究后,我意识到在我的情况下,为了返回已选中的复选框的值,我需要这样做:

fieldParse  = \rawVals _fileVals ->
        return $ Right $ Just rawVals

由于rawVals包含已检查的复选框的所有值的Text列表。