summaryrefslogtreecommitdiff
path: root/http-client.scm
diff options
context:
space:
mode:
authorPeter Bex <peter@more-magic.net>2021-09-01 09:27:01 +0200
committerPeter Bex <peter@more-magic.net>2021-09-01 09:37:21 +0200
commit7b9b33e3626be5dc094b7a1629f8f8b2208799df (patch)
tree08993ae2f6c721da2e535110a7aa099197812a26 /http-client.scm
parente0f7cc65e2f40a042c2e9eba6e364cf8dc9ee072 (diff)
downloadhttp-client-7b9b33e3626be5dc094b7a1629f8f8b2208799df.tar.gz
Add request method to arguments inside exn for better debugging
Diffstat (limited to 'http-client.scm')
-rw-r--r--http-client.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/http-client.scm b/http-client.scm
index b198619..a15f6e6 100644
--- a/http-client.scm
+++ b/http-client.scm
@@ -1,7 +1,7 @@
;;;
;;; Convenient HTTP client library
;;;
-;; Copyright (c) 2008-2020, Peter Bex
+;; Copyright (c) 2008-2021, Peter Bex
;; Parts copyright (c) 2000-2004, Felix L. Winkelmann
;; All rights reserved.
;;
@@ -870,7 +870,7 @@
(else "Unexpected server response: ~A ~A"))
(response-code response) (response-reason response))
;; arguments
- (list (uri->string uri))
+ (list (request-method req) (uri->string uri))
;; Specific type
(case (response-class response)
((400) 'client-error)