From 7b9b33e3626be5dc094b7a1629f8f8b2208799df Mon Sep 17 00:00:00 2001
From: Peter Bex <peter@more-magic.net>
Date: Wed, 1 Sep 2021 09:27:01 +0200
Subject: Add request method to arguments inside exn for better debugging

---
 http-client.scm | 4 ++--
 1 file 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)
-- 
cgit v1.2.3