diff options
| author | Peter Bex <peter@more-magic.net> | 2021-09-01 09:27:01 +0200 |
|---|---|---|
| committer | Peter Bex <peter@more-magic.net> | 2021-09-01 09:37:21 +0200 |
| commit | 7b9b33e3626be5dc094b7a1629f8f8b2208799df (patch) | |
| tree | 08993ae2f6c721da2e535110a7aa099197812a26 | |
| parent | e0f7cc65e2f40a042c2e9eba6e364cf8dc9ee072 (diff) | |
| download | http-client-7b9b33e3626be5dc094b7a1629f8f8b2208799df.tar.gz | |
Add request method to arguments inside exn for better debugging
| -rw-r--r-- | http-client.scm | 4 |
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) |