diff --git a/racketmq/hub/remote-topic.rkt b/racketmq/hub/remote-topic.rkt index fbf8c33..bfa0a3e 100644 --- a/racketmq/hub/remote-topic.rkt +++ b/racketmq/hub/remote-topic.rkt @@ -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