| 12345678910111213141516171819202122 |
- (library (middleware)
- (export logging-middleware)
- (import
- ;; language base
- (rnrs base)
- ;; lambda forms from guile
- (only (guile) lambda* λ)
- ;; for request-path-components
- (web request)
- ;; for log:debug
- (prefix (logging) log:)
- (request-utils)))
- (define logging-middleware
- (λ (request body)
- "The logging middleware takes care of logging to stdout
- whenever a request comes in. We can imagine all sorts of
- logging here."
- (log:debug "responding for request-path-components:"
- (request-path-components request))))
|
