From 2fa3f13c9b69895f09b4d90e44674e5ebfec30bb Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Mon, 21 Nov 2016 17:46:32 +1300
Subject: [PATCH] More logging

---
 racketmq/hub/remote-topic.rkt | 2 ++
 1 file changed, 2 insertions(+)

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