bf30c68 · typeable/req

git.iko.soy/typeable/req

on master help sign in

Update the example for multipart form data to use ‘runReq’

bf30c68mrkkrp9 years ago

Network/HTTP/Req.hs+6−8

compare with master

unifiedsplit

@@ -1010,17 +1010,15 @@ instance QueryParam FormUrlEncodedParam where

1010--

1011-- @since 0.2.0

1012--

1013−-- ==== __Example__

1013+-- ==== __Examples__

1014--

1015−-- > import Control.Exception (throwIO)

1015+-- > import Control.Monad.IO.Class

1016−-- > import qualified Network.HTTP.Client.MultipartFormData as LM

1016+-- > import Data.Default.Class

1017-- > import Network.HTTP.Req

1018−-- >

1018+-- > import qualified Network.HTTP.Client.MultipartFormData as LM

1019−-- > instance MonadHttp IO where

1020−-- > handleHttpException = throwIO

1021-- >

1019-- >

1022-- > main :: IO ()

1020-- > main :: IO ()

1023−-- > main = do

1021+-- > main = runReq def $ do

1024-- > body <-

1022-- > body <-

1025-- > reqBodyMultipart

1023-- > reqBodyMultipart

1026-- > [ LM.partBS "title" "My Image"

1024-- > [ LM.partBS "title" "My Image"

@@ -1031,7 +1029,7 @@ instance QueryParam FormUrlEncodedParam where

1031-- > body

1029-- > body

1032-- > bsResponse

1030-- > bsResponse

1033-- > mempty

1031-- > mempty

1034−-- > print $ responseBody response

1032+-- > liftIO $ print (responseBody response)

1035

1033

1036data ReqBodyMultipart = ReqBodyMultipart ByteString LI.RequestBody

1034data ReqBodyMultipart = ReqBodyMultipart ByteString LI.RequestBody

1037

1035