haskell - 在 Yesod 中不显示表单标签的标准方法？

Question

有没有一种标准方法可以在 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)

有更简单的方法吗？

谢谢！

Answer 1

我认为“更简单的方法”是将您的渲染功能版本包含在 yesod-form 本身中。想要发送拉取请求？