@@ -99,10 +99,6 @@ runSession session app = ST.evalStateT (runReaderT session app) initState
9999data SRequest = SRequest
100100 { simpleRequest :: Request
101101 , simpleRequestBody :: L.ByteString
102− -- ^ Request body that will override the one set in 'simpleRequest'.
103− --
104− -- This is usually simpler than setting the body as a stateful IO-action
105− -- in 'simpleRequest'.
106102 }
107103data SResponse = SResponse
108104 { simpleStatus :: H.Status
@@ -178,8 +174,6 @@ extractSetCookieFromSResponse response = do
178174 (Map.fromList [(Cookie.setCookieName c, c) | c <- newClientCookies ]))
179175 return response
180176
181−-- | Similar to 'request', but allows setting the request body as a plain
182−-- 'L.ByteString'.
183177srequest :: SRequest -> Session SResponse
184178srequest (SRequest req bod) = do
185179 refChunks <- liftIO $ newIORef $ L.toChunks bod