syndicate-lang
/
racketmq-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

log-info instead of printf

This commit is contained in:
Tony Garnock-Jones 2016-11-22 10:15:01 +13:00
parent eef6c8c4b7
commit 1cfd5cce0d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racketmq/private/util.rkt
View File

@ -64,13 +64,13 @@
(define-values (resp response-body)
(react/suspend (k)
(on-start
(printf "~a --> ~a ~a ~v\n" req-id verb urlstr request-body)
(log-info "~a --> ~a ~a ~v" req-id verb urlstr request-body)
(send! (web-request req-id
'outbound
(web-request-header verb res headers (url-query u))
request-body)))
(stop-when (message (web-response-complete req-id $resp $response-body))
(printf "~a <-- ~v ~v\n" req-id resp response-body)
(log-info "~a <-- ~v ~v" req-id resp response-body)
(k resp response-body))))
(define location (and resp (dict-ref (web-response-header-headers resp) 'location #f)))
(if (and resp