04/62: gnu: Add rust-backoff-0.4.

[guix-commits]

efraim pushed a commit to branch rust-team
in repository guix.

commit e8e4aaf08f62210633ff336b5379a328eb0a2fc1
Author: Herman Rimm <herman@rimm.ee>
AuthorDate: Sun Feb 18 22:02:03 2024 +0100

    gnu: Add rust-backoff-0.4.
    
    * gnu/packages/crates-io.scm (rust-backoff-0.4): Add variable.
    
    Signed-off-by: Efraim Flashner <efraim@flashner.co.il>
    Change-Id: Ica5966ba4cf02791f6d442afc08e84823f4612d5
---
 gnu/packages/crates-io.scm | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)

diff --git a/gnu/packages/crates-io.scm b/gnu/packages/crates-io.scm
index f5b00e28a5..0c1a20e9bb 100644
--- a/gnu/packages/crates-io.scm
+++ b/gnu/packages/crates-io.scm
@@ -5571,6 +5571,43 @@ film grain data.")
     (description "This crate provides casts and checked casts.")
     (license (list license:expat license:asl2.0))))
 
+(define-public rust-backoff-0.4
+  (package
+    (name "rust-backoff")
+    (version "0.4.0")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (crate-uri "backoff" version))
+       (file-name (string-append name "-" version ".tar.gz"))
+       (sha256
+        (base32 "1h80d9xn5wngxdgza2m8w4x1kyhk0x6k9ydvsj50j2pcn6fdnbdn"))
+       (modules '((guix build utils)))
+       ;; XXX: Doctest hangs for no apparent reason.
+       (snippet '(substitute* "src/lib.rs"
+                              (("```rust\n")
+                               "```rust,no_run\n")))))
+    (build-system cargo-build-system)
+    (arguments
+     `(#:cargo-inputs (("rust-async-std" ,rust-async-std-1)
+                       ("rust-futures-core" ,rust-futures-core-0.3)
+                       ("rust-getrandom" ,rust-getrandom-0.2)
+                       ("rust-instant" ,rust-instant-0.1)
+                       ("rust-pin-project-lite" ,rust-pin-project-lite-0.2)
+                       ("rust-rand" ,rust-rand-0.8)
+                       ("rust-tokio" ,rust-tokio-1))
+       #:cargo-development-inputs
+       (("rust-async-std" ,rust-async-std-1)
+        ("rust-futures-executor" ,rust-futures-executor-0.3)
+        ("rust-reqwest" ,rust-reqwest-0.11)
+        ("rust-tokio" ,rust-tokio-1))))
+    (native-inputs (list pkg-config))
+    (inputs (list openssl))
+    (home-page "https://github.com/ihrwein/backoff";)
+    (synopsis "Retry operations with exponential backoff policy")
+    (description "Retry operations with exponential backoff policy.")
+    (license (list license:expat license:asl2.0))))
+
 (define-public rust-backon-0.4
   (package
     (name "rust-backon")