diff options
Diffstat (limited to 'src/scm/webid-oidc/program.scm')
| -rw-r--r-- | src/scm/webid-oidc/program.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/scm/webid-oidc/program.scm b/src/scm/webid-oidc/program.scm index a9c1a0f..4d431da 100644 --- a/src/scm/webid-oidc/program.scm +++ b/src/scm/webid-oidc/program.scm @@ -88,6 +88,13 @@ (lambda () (receive (response response-body) (handler request request-body) + (format (current-error-port) + (G_ "~a: ~s ~a ~s ~a\n") + (date->string (time-utc->date (current-time))) + (request-method request) + (uri-path (request-uri request)) + (response-code response) + (response-reason-phrase response)) (return (build-response #:version (response-version response) |