具有消化功能的元素

【问题标题】：Form elements with digestive-functors具有消化功能的元素
【发布时间】：2011-06-26 15:32:30
【问题描述】：

Digestive-functors-blaze 创建像<input type="text" id="foo" name="foo" /><label for="foo">Bar</label> 这样的html，但我没有找到任何标准方法，例如将<br /> 添加到末尾。

我想出了这个：

br :: (Monad m) => HappstackForm m H.Html BlazeFormHtml ()
br = Common.label $ \_ -> do
  createFormHtml $ \cfg -> do
    H.br

我可以用<++ 附加它，这符合我的预期，但我想知道这是否是预期的方式？

这将如何扩展例如字段集。

【问题讨论】：

【解决方案1】：

这是预期的方式，尽管br 写成这样会更简洁：

br :: Monad m
   => Form m i e BlazeFormHtml ()
br = view $ createFormHtml $ const H.br

无论如何，我觉得这个定义有点麻烦，所以我在Text.Digestive.Forms.Html 中添加了一个viewHtml 函数：

viewHtml :: Monad m => a -> Form m i e (FormHtml a) ()
viewHtml = view . createFormHtml . const

这在digestive-functors-0.1.0.1 中可用。使用这个新的组合器，您应该可以只使用 <++ viewHtml H.br — 我希望这会有所帮助。

【讨论】：