@@ -1010,17 +1010,15 @@ instance QueryParam FormUrlEncodedParam where
10101010--
10111011-- @since 0.2.0
10121012--
1013−-- ==== __Example__
1013+-- ==== __Examples__
10141014--
1015−-- > import Control.Exception (throwIO)
1016−-- > import qualified Network.HTTP.Client.MultipartFormData as LM
1015+-- > import Control.Monad.IO.Class
1016+-- > import Data.Default.Class
10171017-- > import Network.HTTP.Req
1018−-- >
1019−-- > instance MonadHttp IO where
1020−-- > handleHttpException = throwIO
1018+-- > import qualified Network.HTTP.Client.MultipartFormData as LM
10211019-- >
10221020-- > main :: IO ()
1023−-- > main = do
1021+-- > main = runReq def $ do
10241022-- > body <-
10251023-- > reqBodyMultipart
10261024-- > [ LM.partBS "title" "My Image"
@@ -1031,7 +1029,7 @@ instance QueryParam FormUrlEncodedParam where
10311029-- > body
10321030-- > bsResponse
10331031-- > mempty
1034−-- > print $ responseBody response
1032+-- > liftIO $ print (responseBody response)
10351033
10361034data ReqBodyMultipart = ReqBodyMultipart ByteString LI.RequestBody
10371035