在Yesod中不显示表单标签的标准方法?

时间:2012-06-08 12:25:09

标签: haskell yesod

是否有一种标准方法可以在Yesod表单中没有字段标签?我的表格显示了该领域的内容,我不需要标签。 到目前为止,我通过复制和修改renderDivs来编写自己的代码:

renderDivsNoLabel aform fragment = do
    (res, views') <- aFormToForm aform
    let views = views' []
    let widget = [whamlet|
\#{fragment}
$forall view <- views
    <div :fvRequired view:.required :not $ fvRequired view:.optional>
        $maybe tt <- fvTooltip view
            <div .tooltip>#{tt}
        ^{fvInput view}
        $maybe err <- fvErrors view
            <div .errors>#{err}
 |]
return (res, widget)

更简单的方法?

谢谢!

1 个答案:

答案 0 :(得分:1)

我认为“更简单的方法”是在yesod-form本身中包含你的渲染函数版本。想发送拉取请求吗?