{-# LANGUAGE CPP #-} -- | SimpleForm implementation that works along with digestive-functors -- -- The Combined module both renders to 'Html' and also parses input. module SimpleForm.Digestive.Combined ( SimpleForm, SimpleForm', postSimpleForm, getSimpleForm, simpleForm', -- * Create forms input, input_, toForm, -- * Subforms withFields, withFields', wrap, fieldset ) where import Data.Monoid import Control.Monad.Trans.Reader import Control.Monad.Trans.Writer import Data.Text (Text) import qualified Data.Text as T import Text.Blaze.Html (Html) import Text.Digestive.View import Text.Digestive.Form import Text.Digestive.Types (Env) import SimpleForm.Digestive (toForm, wrap, simpleForm') import qualified SimpleForm.Digestive (withFields, fieldset) import SimpleForm.Combined import SimpleForm.Digestive.Internal import SimpleForm.Digestive.Validation import SimpleForm.Render -- | Convenience type synonym for combined forms type SimpleForm' m a = SimpleForm a (Form Html m a) -- | Render a 'SimpleForm' to 'Html' -- -- This produces the contents of the form, but you must still wrap it in -- the actual \