-- | SimpleForm implementation that works along with digestive-functors module SimpleForm.Digestive ( SimpleForm, simpleForm, simpleForm', -- * Create forms input, input_, choiceInput, choiceInput_, toForm, -- * Subforms withFields, wrap, fieldset ) where import Data.Monoid import Control.Monad.Trans.Reader import Control.Monad.Trans.Writer import Control.Monad.Trans.Class import Data.Text (Text) import qualified Data.Text.Lazy as TL import Text.Blaze.Html (Html, ToMarkup, toHtml) import Text.Blaze.Html.Renderer.Text (renderHtml) import qualified Text.Blaze.XHtml5 as HTML import Text.Digestive.View import SimpleForm import SimpleForm.Render import SimpleForm.Digestive.Internal -- | Render a 'SimpleForm' to 'Html' -- -- This produces the contents of the form, but you must still wrap it in -- the actual \