Source

pronk / lib / Network / HTTP / LoadTest.hs

Diff from to

File lib/Network/HTTP/LoadTest.hs

 respEvent :: Response L.ByteString -> Event
 respEvent resp =
     HttpResponse {
-      respCode = H.statusCode $ statusCode resp
+      respCode = H.statusCode $ responseStatus resp
     , respContentLength = fromIntegral . L.length . responseBody $ resp
     }