Form elements with digestive-functors

Question

Digestive-functors-blaze creates html like <input type="text" id="foo" name="foo" /><label for="foo">Bar</label>, but I didn't find any standard way to for example add <br /> to the end.

I came up with this:

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

I can append it with <++ which does what I expect it to, but I wonder whether this is the intended way?

Also how would this extend with for example fieldsets.

Answer 1

This is the intended way, although br would be a little cleaner when written as:

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

Anyway, I figured this definition is a little cumbersome so I added a viewHtml function to Text.Digestive.Forms.Html:

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

This is available in digestive-functors-0.1.0.1. Using this new combinator, you should be able to just use <++ viewHtml H.br — I hope this helps.