branch: elpa/hyperdrive
commit 24f4c589cc70cdee688e17ddd7209d324bcfe7e6
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>

    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))))
 

Reply via email to