Support topic deletion in poke.rkt
This commit is contained in:
parent
28bb423d32
commit
12fb654708
|
@ -37,6 +37,8 @@
|
||||||
(match (string-split (string-trim (bytes->string/utf-8 bs)))
|
(match (string-split (string-trim (bytes->string/utf-8 bs)))
|
||||||
[(list "topic" topic)
|
[(list "topic" topic)
|
||||||
(request! 'put `("topic" (,topic ())))]
|
(request! 'put `("topic" (,topic ())))]
|
||||||
|
[(list "deltopic" topic)
|
||||||
|
(request! 'delete `("topic" (,topic ())))]
|
||||||
[(list* "pub" topic strs)
|
[(list* "pub" topic strs)
|
||||||
(request! 'post `("topic" (,topic ()))
|
(request! 'post `("topic" (,topic ()))
|
||||||
#:body (string->bytes/utf-8 (string-join strs)))]
|
#:body (string->bytes/utf-8 (string-join strs)))]
|
||||||
|
|
Loading…
Reference in New Issue