From 5bbb824ffb7ebac9cdd1b76e5ad8c6db8616ee31 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 29 Dec 2021 20:41:34 +0530
Subject: Reference non-public rust packages using @@.

rust-1.47 and rust-1.49 are no longer exported from (gnu packages
rust).

* gn/packages/bioinformatics.scm (gfaffix): Reference rust-1.49 using
@@.
* gn/packages/crates-io.scm (rust-handlegraph-0.7): Reference
rust-1.47 using @@.
---
 gn/packages/bioinformatics.scm | 9 +++++----
 gn/packages/crates-io.scm      | 9 +++++----
 2 files changed, 10 insertions(+), 8 deletions(-)

diff --git a/gn/packages/bioinformatics.scm b/gn/packages/bioinformatics.scm
index 391c2bf..fbe58ff 100644
--- a/gn/packages/bioinformatics.scm
+++ b/gn/packages/bioinformatics.scm
@@ -477,10 +477,11 @@ reads.")
               (("^handlegraph.*") "handlegraph = \"0.7\"\n"))))))
     (build-system cargo-build-system)
     (arguments
-     `(#:rust ,(if (> (string->number (version-major+minor (package-version rust-1.49)))
-                      (string->number (version-major+minor (package-version rust))))
-                 rust-1.49
-                 rust)
+     `(#:rust ,(let ((rust-1.49 (@@ (gnu packages rust) rust-1.49)))
+                 (if (> (string->number (version-major+minor (package-version rust-1.49)))
+                        (string->number (version-major+minor (package-version rust))))
+                     rust-1.49
+                     rust))
        #:cargo-inputs
        (("rust-clap" ,rust-clap-3)
         ("rust-rustc-hash" ,rust-rustc-hash-1)
diff --git a/gn/packages/crates-io.scm b/gn/packages/crates-io.scm
index 2af14f4..0433c39 100644
--- a/gn/packages/crates-io.scm
+++ b/gn/packages/crates-io.scm
@@ -24,10 +24,11 @@
          (base32
           "1frlcdwhycjvizb0gfb0v36vxjdi0jxagl2l2v6dzdjxpaawv9rs"))))
     (arguments
-     `(#:rust ,(if (> (string->number (version-major+minor (package-version rust-1.47)))
-                      (string->number (version-major+minor (package-version rust))))
-                 rust-1.47
-                 rust)
+     `(#:rust ,(let ((rust-1.47 (@@ (gnu packages rust) rust-1.47)))
+                 (if (> (string->number (version-major+minor (package-version rust-1.47)))
+                        (string->number (version-major+minor (package-version rust))))
+                     rust-1.47
+                     rust))
        #:cargo-inputs
        (("rust-anyhow" ,rust-anyhow-1)
         ("rust-boomphf" ,rust-boomphf-0.5)
-- 
cgit v1.2.3