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

More logging

This commit is contained in:
Tony Garnock-Jones 2016-11-21 17:46:32 +13:00
parent 036916de7f
commit 2fa3f13c9b
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racketmq/hub/remote-topic.rkt
View File

@ -52,6 +52,7 @@
;; TODO: shared secret
;; TODO: listen to lease duration and use it to refresh ourselves more smarterly
(when (current-upstream-hub)
(log-info "Subscribing to hub ~s for topic ~s" (current-upstream-hub) full-topic)
(web-request! 'post (current-upstream-hub)
#:body (string->bytes/utf-8
(alist->form-urlencoded
@ -62,6 +63,7 @@
(define (unsubscribe!)
(when (established-upstream-hub)
(log-info "Unsubscribing from hub ~s for topic ~s" (established-upstream-hub) full-topic)
(web-request! 'post (established-upstream-hub)
#:body (string->bytes/utf-8
(alist->form-urlencoded