Network.HTTP.ClientExtra.Multipart

This module handles building multipart/form-data. Example usage:

{-# LANGUAGE OverloadedStrings #-}
import Network
import Network.HTTP.Conduit
import Network.HTTP.Conduit.MultipartFormData

import Data.Text.Encoding as TE

import Control.Monad

main = withSocketsDo $ withManager $ \m -> do
    req1 <- parseUrl "http://random-cat-photo.net/cat.jpg"
    res <- httpLbs req1 m
    req2 <- parseUrl "http://example.org/~friedrich/blog/addPost.hs"
    flip httpLbs m =<<
        (formDataBody [partBS "title" "Bleaurgh"
                      ,partBS "text" $ TE.encodeUtf8 "矢田矢田矢田矢田矢田"
                      ,partFileSource "file1" "/home/friedrich/Photos/MyLittlePony.jpg"
                      ,partFileRequestBody "file2" "cat.jpg" $ RequestBodyLBS $ responseBody res]
            req2)

Documentation

webkitBoundary :: MonadIO m => m ByteString

webkitBoundaryPure :: RandomGen g => g -> (ByteString, g)

data Multipart m where

Constructors

Multipart :: MonadIO m => Text -> RequestHeadersE -> [CE m] -> Multipart m

Instances

MonadIO m => ContentEncoder m (Multipart m)

Methods

buildBody :: Multipart m -> m (RequestBody, RequestHeadersE)

renderPart :: ByteString -> Multipart m -> m RequestBody

renderParts :: MonadIO m => ByteString -> [CE m] -> m RequestBody

data CE m where

Constructors

CE :: (MonadIO m, ContentEncoder m a) => a -> CE m

Instances

MonadIO m => ContentEncoder m (CE m)

Methods

buildBody :: CE m -> m (RequestBody, RequestHeadersE)

renderPart :: ByteString -> CE m -> m RequestBody