From ceea4cb605f4adf03cc1c6db8a8910d3c27514f4 Mon Sep 17 00:00:00 2001 From: Vincent Lee Date: Tue, 13 Sep 2022 19:44:37 -0700 Subject: [PATCH] Fix response for register/update/delete on Discord frontend being broken --- frontends/discord.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/frontends/discord.rkt b/frontends/discord.rkt index 34b4150..a3669dc 100644 --- a/frontends/discord.rkt +++ b/frontends/discord.rkt @@ -474,7 +474,7 @@ name (strip-backticks body) (message-author-id (current-message)) (discord-timestamp-to-unix (hash-ref (current-message) 'timestamp)))) - (list (result-case cdr cadr result))) + (result-case values error-response result)) (define/command/trick (show-trick name _body) " [_name_]: show metadata and source for the trick [_name_]" @@ -495,11 +495,11 @@ (define/command/trick (update-trick name body) " [_name_] [_code_]: change the source of the trick [_name_]; requires ownership or administrator" - (list (result-case cdr cadr (send (current-backend) update name (strip-backticks body))))) + (result-case values error-response (send (current-backend) update name (strip-backticks body)))) (define/command/trick (delete-trick name _body) " [_name_]: delete the trick [_name_]; requires ownership or administrator and cannot be undone!" - (list (result-case cdr cadr (send (current-backend) delete name)))) + (result-case values error-response (send (current-backend) delete name))) (define/command (popular text) ": show a leaderboard of popular tricks" -- 2.38.5