From 91488f1358d66c93723430b4ff1484f6528e2c92 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Wed, 12 Apr 2023 00:44:02 -0700
Subject: 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.
---
 tekuti.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'tekuti.el')

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
-- 
cgit v1.2.3-54-g00ecf