Retries more often in smaller delays

ralt · Oct 18, 2015 · 9c6acd3 · 9c6acd3
1 parent d7a15f1
commit 9c6acd3
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/daemon/can-login.lisp b/daemon/can-login.lisp
@@ -84,7 +84,9 @@
 (defun find-hermes-device ()
   ;; Retry multiple times over 5 seconds, a device can take some time to be
   ;; available in the OS.
-  (with-retries (6 1)
+  ;; To retry every 100ms over 5 seconds, you need to retry 60 times every
+  ;; 100ms.
+  (with-retries (60 1/100)
     (find-if #'is-hermes-device
              (remove-if-not #'is-storage-device
                             (cl-fad:list-directory *devices-folder*)))))