module Web.Scotty.Form ( Trans.ScottyFormError(..) , encQP , ScottyForm , ditto , dittoSingle , simpleDittoGET , simpleDittoPOST , liftParser' , liftParser ) where import Data.Text (Text) import Ditto.Core hiding (view) import Ditto.Types import Web.Scotty import qualified Web.Scotty.Trans.Form as Trans import qualified Data.Text.Lazy as TL import Lucid encQP :: [(a, TL.Text)] -> Text encQP = Trans.encQP -- | a @ditto@ formlet for @scotty@ type ScottyForm a = Form ActionM [Param] Trans.ScottyFormError (Html ()) a ditto :: (Monoid view) => ([(Text, Text)] -> view -> view) -- ^ wrap raw form html inside a