Add for decoding x-www-form-urlencoded data

Web/Scotty.hs

@@ -17,7 +17,7 @@ module Web.Scotty
       -- ** Route Patterns
     , capture, regex, function, literal
       -- ** Accessing the Request, Captures, and Query Parameters
-    , request, header, headers, body, bodyReader, param, params, jsonData, files
+    , request, header, headers, body, bodyReader, param, params, jsonData, formData, files
       -- ** Modifying the Response and Redirecting
     , status, addHeader, setHeader, redirect
       -- ** Setting Response Body
@@ -46,6 +46,7 @@ import Network.Socket (Socket)
 import Network.Wai (Application, Middleware, Request, StreamingBody)
 import Network.Wai.Handler.Warp (Port)
 
+import Web.FormUrlEncoded (FromForm)
 import Web.Scotty.Internal.Types (ScottyT, ActionT, Param, RoutePattern, Options, File, Kilobytes)
 
 type ScottyM = ScottyT Text IO
@@ -187,6 +188,12 @@ bodyReader = Trans.bodyReader
 jsonData :: FromJSON a => ActionM a
 jsonData = Trans.jsonData
 
+-- | Parse the request body as @x-www-form-urlencoded@ data and return it. Raises an exception if parse is unsuccessful.
+--
+-- /Since: FIXME/
+formData :: FromForm a => ActionM a
+formData = Trans.formData
+
 -- | Get a parameter. First looks in captures, then form data, then query parameters.
 --
 -- * Raises an exception which can be caught by 'rescue' if parameter is not found.

Web/Scotty/Action.hs

@@ -8,6 +8,7 @@ module Web.Scotty.Action
     , file
     , files
     , finish
+    , formData
     , header
     , headers
     , html
@@ -65,6 +66,7 @@ import           Network.Wai
 
 import           Numeric.Natural
 
+import qualified Web.FormUrlEncoded         as F
 import           Prelude ()
 import           Prelude.Compat
 
@@ -198,6 +200,15 @@ bodyReader = ActionT $ getBodyChunk `liftM` ask
 jsonData :: (A.FromJSON a, ScottyError e, MonadIO m) => ActionT e m a
 jsonData = do
     b <- body
+    either (\e -> raise $ stringError $ "jsonData - no parse: " ++ e ++ ". Data was: " ++ BL.unpack b) return $ A.eitherDecode b
+
+-- | Parse the request body as @x-www-form-urlencoded@ data and return it. Raises an exception if parse is unsuccessful.
+--
+-- /Since: FIXME/
+formData :: (F.FromForm a, ScottyError e, MonadIO m) => ActionT e m a
+formData = do
+    b <- body
+    either (\e -> raise $ stringError $ "formData - no parse: " ++ ST.unpack e ++ ". Data was: " ++ BL.unpack b) return $ F.urlDecodeAsForm b
     when (b == "") $ do
       let htmlError = "jsonData - No data was provided."
       raiseStatus status400 $ stringError htmlError
@@ -216,6 +227,7 @@ jsonData = do
         A.Success a -> do
           return a
 
+
 -- | Get a parameter. First looks in captures, then form data, then query parameters.
 --
 -- * Raises an exception which can be caught by 'rescue' if parameter is not found.

Web/Scotty/Trans.hs

@@ -21,7 +21,7 @@ module Web.Scotty.Trans
       -- ** Route Patterns
     , capture, regex, function, literal
       -- ** Accessing the Request, Captures, and Query Parameters
-    , request, header, headers, body, bodyReader, param, params, jsonData, files
+    , request, header, headers, body, bodyReader, param, params, jsonData, formData, files
       -- ** Modifying the Response and Redirecting
     , status, addHeader, setHeader, redirect
       -- ** Setting Response Body

changelog.md

@@ -37,6 +37,7 @@
 
 ## 0.11.1 [2018.04.07]
 * Add `MonadThrow` and `MonadCatch` instances for `ActionT` [abhinav]
+* Add `formData` [mitchellwrosen]
 * Fix `matchAny` so that all methods are matched, not just standard ones
   [taphu]