diff options
| -rw-r--r-- | nar-herder/server.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/nar-herder/server.scm b/nar-herder/server.scm index 2e2c1e7..7046784 100644 --- a/nar-herder/server.scm +++ b/nar-herder/server.scm @@ -226,7 +226,12 @@ 'DEBUG (request-method request) " " - (uri-path (request-uri request))) + (uri-path (request-uri request)) + (let ((via (request-via request))) + (if (null? via) + "" + (string-append + " (Via: " (string-join via ", ") ")")))) (match (cons (request-method request) (split-and-decode-uri-path |