@@ -99,6 +99,10 @@ 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'.
102106 }
103107data SResponse = SResponse
104108 { simpleStatus :: H.Status
@@ -174,6 +178,8 @@ extractSetCookieFromSResponse response = do
174178 (Map.fromList [(Cookie.setCookieName c, c) | c <- newClientCookies ]))
175179 return response
176180
181+-- | Similar to 'request', but allows setting the request body as a plain
182+-- 'L.ByteString'.
177183srequest :: SRequest -> Session SResponse
178184srequest (SRequest req bod) = do
179185 refChunks <- liftIO $ newIORef $ L.toChunks bod