From 12fb65470848b493ab239760ba16c564559fc49a Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Wed, 9 Nov 2016 06:10:39 +1300
Subject: [PATCH] Support topic deletion in poke.rkt

---
 rmq/poke.rkt | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/rmq/poke.rkt b/rmq/poke.rkt
index 67aba58..a4b50ee 100644
--- a/rmq/poke.rkt
+++ b/rmq/poke.rkt
@@ -37,6 +37,8 @@
              (match (string-split (string-trim (bytes->string/utf-8 bs)))
                [(list "topic" topic)
                 (request! 'put `("topic" (,topic ())))]
+               [(list "deltopic" topic)
+                (request! 'delete `("topic" (,topic ())))]
                [(list* "pub" topic strs)
                 (request! 'post `("topic" (,topic ()))
                           #:body (string->bytes/utf-8 (string-join strs)))]