diff options
author | Tom Willemse | 2023-04-12 00:44:02 -0700 |
---|---|---|
committer | Tom Willemse | 2023-04-12 00:44:02 -0700 |
commit | 91488f1358d66c93723430b4ff1484f6528e2c92 (patch) | |
tree | 0fca096b3f9858dcaf1047e175ae15257de978df /tekuti.el | |
parent | 7c531e3ab3d73899c38706d0d3eae9ca1d647a83 (diff) | |
download | tekuti-el-91488f1358d66c93723430b4ff1484f6528e2c92.tar.gz tekuti-el-91488f1358d66c93723430b4ff1484f6528e2c92.zip |
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.
Diffstat (limited to 'tekuti.el')
-rw-r--r-- | tekuti.el | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 |