branch: elpa/hyperdrive
commit 24f4c589cc70cdee688e17ddd7209d324bcfe7e6
Author: Joseph Turner <[email protected]>
Commit: Joseph Turner <[email protected]>
Comment: Add TODOs
---
hyperdrive.el | 2 ++
1 file changed, 2 insertions(+)
diff --git a/hyperdrive.el b/hyperdrive.el
index 1c28187dac..a0e8fef2de 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -143,6 +143,7 @@ hyperdrive, the new hyperdrive's petname will be set to
SEED."
(setf (h/writablep hyperdrive) t)
(unwind-protect
(h/set-petname seed hyperdrive)
+ ;; TODO: Hyperdrive disk usage should be set here.
(h/persist hyperdrive)
(h/open (h/url-entry url)))))
@@ -693,6 +694,7 @@ After successful upload, call THEN. When QUEUE, use it."
:body `(file ,filename)
:headers `(("Last-Modified" . ,last-modified))
:then then)
+ ;; TODO: Hyperdrive disk usage should be set here.
(unless queue
(h/message "Uploading to \"%s\"..." url))))