module SimpleForm.Render (
Renderer,
Input(..),
RenderOptions(..),
renderOptions
) where
import Text.Blaze.Html (Html)
import Data.Text (Text)
import SimpleForm
type Renderer = (RenderOptions -> Html)
data RenderOptions = RenderOptions {
name :: Text,
widgetHtml :: Input,
errors :: [Html],
options :: InputOptions
}
renderOptions ::
Maybe a
-> Maybe Text
-> Text
-> Widget a
-> [Html]
-> InputOptions
-> RenderOptions
renderOptions v u n w errors opt = RenderOptions {
name = n,
widgetHtml = w v u n opt,
errors = errors,
options = opt
}