should be capped

me-box · Sep 7, 2017 · 87912c2 · 87912c2
1 parent ef1bbe6
commit 87912c2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/macaroon.ml b/src/macaroon.ml
@@ -44,7 +44,7 @@ let init_secret () =
     | None ->
         if cnt > repeat then return @@ R.error_msg "Can't get macaroon secret"
         else
-          let span = max 7. @@ Random.float bound in
+          let span = min 7. @@ Random.float bound in
           Logs_lwt.info (fun m -> m "[macaroon] sleep %.3f s" span) >>= fun () ->
           Lwt_unix.sleep span >>= fun () ->
           Logs_lwt.info (fun m -> m "[macaroon] try to get macaroon secret %d/%d" cnt repeat)