@@ -847,6 +847,8 @@ instance QueryParam FormUrlEncodedParam where
847-- parts, then use 'reqBodyMultipart' to create actual request body from the
847-- parts, then use 'reqBodyMultipart' to create actual request body from the
848-- parts. 'reqBodyMultipart' is the only way to get a value of type
848-- parts. 'reqBodyMultipart' is the only way to get a value of type
849-- 'ReqBodyMultipart', as its constructor is not exported on purpose.
849-- 'ReqBodyMultipart', as its constructor is not exported on purpose.
851data ReqBodyMultipart = ReqBodyMultipart ByteString LI.RequestBody
853data ReqBodyMultipart = ReqBodyMultipart ByteString LI.RequestBody
@@ -856,6 +858,8 @@ instance HttpBody ReqBodyMultipart where
856 pure ("multipart/form-data; boundary=" <> boundary)
858 pure ("multipart/form-data; boundary=" <> boundary)
858-- | Create 'ReqBodyMultipart' request body from a collection of 'LM.Part's.
860-- | Create 'ReqBodyMultipart' request body from a collection of 'LM.Part's.
860reqBodyMultipart :: MonadIO m => [LM.Part] -> m ReqBodyMultipart
864reqBodyMultipart :: MonadIO m => [LM.Part] -> m ReqBodyMultipart
861reqBodyMultipart parts = liftIO $ do
865reqBodyMultipart parts = liftIO $ do