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

Support topic deletion in poke.rkt

This commit is contained in:
Tony Garnock-Jones 2016-11-09 06:10:39 +13:00
parent 28bb423d32
commit 12fb654708
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rmq/poke.rkt
View File

@ -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)))]