[nongnu] elpa/hyperdrive a5af3356bd 28/31: Change: (hyperdrive-mirror) Compare timestamps to the second

[ELPA Syncer]

branch: elpa/hyperdrive
commit a5af3356bdb40523b8aea85181ead0f38515a5c8
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Change: (hyperdrive-mirror) Compare timestamps to the second
    
    We omit subsecond precision for now.
---
 hyperdrive-mirror.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/hyperdrive-mirror.el b/hyperdrive-mirror.el
index f2cd715968..58661b1a6a 100644
--- a/hyperdrive-mirror.el
+++ b/hyperdrive-mirror.el
@@ -228,8 +228,8 @@ predicate and set NO-CONFIRM to t."
                             :path (expand-file-name (file-relative-name file 
source) target-dir))))
                 (hyperdrive-fill entry :queue metadata-queue
                   :then (lambda (entry)
-                          (let* ((drive-mtime (hyperdrive-entry-mtime entry))
-                                 (local-mtime 
(file-attribute-modification-time (file-attributes file)))
+                          (let* ((drive-mtime (floor (float-time 
(hyperdrive-entry-mtime entry))))
+                                 (local-mtime (floor (float-time 
(file-attribute-modification-time (file-attributes file)))))
                                  (status (cond
                                           ((time-less-p drive-mtime 
local-mtime) 'newer)
                                           ((time-equal-p drive-mtime 
local-mtime) 'same)