[nongnu] elpa/hyperdrive 15a9b0ff56 17/49: Tidy: Remove message statements

[ELPA Syncer]

branch: elpa/hyperdrive
commit 15a9b0ff56ff3dbb73416d2c6b50c8c56a7f051a
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>

    Tidy: Remove message statements
---
 hyperdrive-lib.el | 10 ----------
 1 file changed, 10 deletions(-)

diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index b1582b8070..a52f107408 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -810,8 +810,6 @@ with no arguments."
   (declare (indent defun))
   (let* ((outstanding-nonexistent-requests-p)
          (finally (lambda ()
-                    ;; (message "Running finally?  
OUTSTANDING-NONEXISTENT-REQUESTS-P:%s"
-                    ;;          outstanding-nonexistent-requests-p)
                     (unless outstanding-nonexistent-requests-p
                       (funcall finally))))
          (limit hyperdrive-fill-version-ranges-limit)
@@ -838,35 +836,27 @@ with no arguments."
                                                        (cl-decf limit 
hyperdrive-queue-size)
                                                        (let 
((last-requested-entry (hyperdrive-copy-tree entry t)))
                                                          (cl-incf 
(hyperdrive-entry-version last-requested-entry))
-                                                         ;; (message "ENTRY2: 
%s %s" (hyperdrive-entry-version entry) (hyperdrive-entry-exists-p 
last-requested-entry))
                                                          (if 
(hyperdrive-entry-exists-p last-requested-entry)
                                                              (fill-existent 
entry)
                                                            (fill-nonexistent 
entry))
-                                                         ;; (message 
"NONEXISTENT-QUEUE-FINALLY: Calling plz-queue-finally...")
                                                          (when finishedp
                                                            (funcall 
finally)))))))
                     ;; For nonexistent entries, send requests in parallel.
                     (cl-dotimes (i hyperdrive-queue-size)
                       ;; Send the maximum number of simultaneous requests.
                       (cl-decf (hyperdrive-entry-version entry))
-                      ;; (message "ENTRY0: %s %s %s %s" 
(hyperdrive-entry-version entry) (hyperdrive-entry-exists-p entry) limit i)
                       (unless (and (cl-plusp (hyperdrive-entry-version entry))
                                    (eq 'unknown (hyperdrive-entry-exists-p 
entry))
                                    (> limit i))
                         ;; Stop at the beginning of the history, at a known
                         ;; existent/nonexistent entry, or at the limit.
                         (cl-return (setf finishedp t)))
-                      ;; (message "ENTRY1: %s %s" (hyperdrive-entry-version 
entry) (hyperdrive-entry-exists-p entry))
-
                       (hyperdrive-fill (hyperdrive-copy-tree entry t)
                         ;; `hyperdrive-fill' is only used to fill the version 
ranges;
                         ;; the filled-entry is thrown away.
                         :then (lambda (_filled-entry)
-                                ;; (message "KNOWN-EXISTENT: %s" 
(hyperdrive-entry-version filled-entry))
-                                ;; (message "THEN")
                                 )
                         :else (lambda (err)
-                                ;; (message "KNOWN-NONEXISTENT: %s" 
(hyperdrive-entry-version entry))
                                 ;; TODO: Better error handling.
                                 (pcase (plz-response-status 
(plz-error-response err))
                                   ;; FIXME: If plz-error is a curl-error, this 
block will fail.