From 1dec02fd3d4ac4999a7e2f9225c3e5853ae3bc47 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 31 Oct 2016 17:48:33 -0400 Subject: [PATCH] unsubscribe in poke.rkt --- rmq/poke.rkt | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/rmq/poke.rkt b/rmq/poke.rkt index 29abe3e..2a93041 100644 --- a/rmq/poke.rkt +++ b/rmq/poke.rkt @@ -42,6 +42,8 @@ #:body (string->bytes/utf-8 (string-join strs)))] [(list "sub" topic) (spawn-subscriber topic)] + [(list "unsub" topic) + (unsubscribe-from topic)] [(list) (void)] [_ @@ -91,3 +93,11 @@ `((hub.callback . "http://localhost:7000/sink") (hub.mode . "subscribe") (hub.topic . ,topic)))))) + +(define (unsubscribe-from topic) + (request! 'post `("hub" ()) + #:body (string->bytes/utf-8 + (alist->form-urlencoded + `((hub.callback . "http://localhost:7000/sink") + (hub.mode . "unsubscribe") + (hub.topic . ,topic))))))