From e847059950308eea45bb70736a33a6d4c348bfff Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Date: Wed, 9 Nov 2022 14:00:39 +0100
Subject: use a proper dotted alist for response headers list

---
 lisp/mastodon-http.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lisp/mastodon-http.el')

diff --git a/lisp/mastodon-http.el b/lisp/mastodon-http.el
index fedbe95..1c6e1ae 100644
--- a/lisp/mastodon-http.el
+++ b/lisp/mastodon-http.el
@@ -191,8 +191,8 @@ Return a cons of JSON list and http response headers."
                     (re-search-forward "^$" nil 'move)))
          (head-list (split-string head-str "\n")))
     (mapcar (lambda (x)
-              ;; FIXME: use dotted notation so alist-get doesn't return a list
-              (split-string x ": "))
+              (let ((list (split-string x ": ")))
+                (cons (car list) (cadr list))))
             head-list)))
 
 (defun mastodon-http--delete (url)
-- 
cgit v1.2.3