Fix ‘pcase-exhaustive’ cases

There's more information in the ‘status’ variable than just what I extract. The
‘. ,_’ matches anything else into a discard pattern so that I'm only getting the
data I need.

1 files changed, 2 insertions, 2 deletions

diff --git a/tekuti.el b/tekuti.el
index 2034839..7140c39 100644
--- a/tekuti.el
+++ b/tekuti.el
@@ -95,7 +95,7 @@
 
 (defun tekuti--send-finished (status buffer args)
   (pcase-exhaustive status
-    (`(:redirect ,url)
+    (`(:redirect ,url . ,_)
      (save-excursion
        (with-current-buffer buffer
          (goto-char (point-min))
@@ -111,7 +111,7 @@
                        (insert "#+" key ": " value "\n"))))
                  args))))
      (message "Created new post: %s" url))
-    (`(:error (error http ,code))
+    (`(:error (error http ,code) . ,_)
      (message "Failed to create post: %d" code))))
 
 ;;;###autoload