branch: elpa/hyperdrive
commit 5fa55fc9d6000503230e1fcea512b5265cee0701
Author: Joseph Turner <[email protected]>
Commit: Joseph Turner <[email protected]>
Fix: (he//api-then) Handle X-Drive-Size "NaN"
---
hyperdrive-lib.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index f2fc4aa6f5..b4c32076f2 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -305,7 +305,8 @@ it exists. Persists ENTRY's hyperdrive. Invalidates ENTRY
display."
(setf (h/writablep (he/hyperdrive entry)) (string-match-p "PUT" allow)))
(when x-drive-size
(setf (map-elt (h/etc (he/hyperdrive entry)) 'disk-usage)
- (cl-parse-integer x-drive-size)))
+ (ignore-errors ; Sometimes X-Drive-Size is "NaN"
+ (cl-parse-integer x-drive-size))))
(when x-drive-version
(setf (h/latest-version (he/hyperdrive entry))
(string-to-number x-drive-version)))
