branch: elpa/hyperdrive
commit a39567f697671f25c393e9b11f3d32074c0d1061
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@alphapapa.net>
Change: (hyperdrive--fill) Use string-match-p
---
hyperdrive-lib.el | 6 +-----
1 file changed, 1 insertion(+), 5 deletions(-)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 1243277a2d..68f94ba651 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -542,11 +542,7 @@ Returns filled ENTRY."
(when last-modified
(setf last-modified (encode-time (parse-time-string last-modified))))
(when (and allow (eq 'unknown writablep))
- (setf (hyperdrive-writablep hyperdrive) (pcase-exhaustive allow
- ;; TODO: The Allow header
array is
- ;; serialized. Why isn't it an
alist?
- ("HEAD,GET,PUT,DELETE" t)
- ("HEAD,GET" nil))))
+ (setf (hyperdrive-writablep hyperdrive) (string-match-p "PUT" allow)))
(setf (hyperdrive-entry-size entry) (when content-length
(ignore-errors
(cl-parse-integer content-length)))
