From d715677cece3376259ea4c7b296a4bbbf4fdfe28 Mon Sep 17 00:00:00 2001
From: Efraim Flashner <efraim@flashner.co.il>
Date: Thu, 4 Jan 2024 22:01:31 +0200
Subject: [PATCH] gnu: rust-fat-macho-0.4: Move to (gnu packages crates-apple).

* gnu/packages/crates-io.scm (rust-fat-macho-0.4): Move from here ...
* gnu/packages/crates-apple.scm: ... to here.

Change-Id: I94db36b2d2a02952f3ae141edbb72d7a8a445e9f
---
 gnu/packages/crates-apple.scm | 26 ++++++++++++++++++++++++++
 gnu/packages/crates-io.scm    | 25 -------------------------
 gnu/packages/rust-apps.scm    |  1 +
 3 files changed, 27 insertions(+), 25 deletions(-)

diff --git a/gnu/packages/crates-apple.scm b/gnu/packages/crates-apple.scm
index b7a02ad724..58e6bb8ae5 100644
--- a/gnu/packages/crates-apple.scm
+++ b/gnu/packages/crates-apple.scm
@@ -31,6 +31,7 @@
   #:use-module (guix download)
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (guix packages)
+  #:use-module (guix gexp)
   #:use-module (guix utils)
   #:use-module (gnu packages)
   #:use-module (gnu packages crates-graphics)
@@ -663,6 +664,31 @@ Central Dispatch.")
          "019nzy993hxaiazcdnayx3csv2iki34i535asw11ki96hakkrs84"))))
     (arguments '(#:tests? #f))))  ; Tests only run on Mac.
 
+(define-public rust-fat-macho-0.4
+  (package
+    (name "rust-fat-macho")
+    (version "0.4.7")
+    (source (origin
+              (method url-fetch)
+              (uri (crate-uri "fat-macho" version))
+              (file-name (string-append name "-" version ".tar.gz"))
+              (sha256
+               (base32
+                "0ywr3xqi884i12d5mfidbma1hrd4rxj9f8jw7p4bignagmy13yk3"))
+              (snippet
+               #~(begin (use-modules (guix build utils))
+                        (delete-file-recursively "tests/fixtures")))))
+    (build-system cargo-build-system)
+    (arguments
+     `(#:tests? #f      ; Test files removed.
+       #:cargo-inputs
+       (("rust-goblin" ,rust-goblin-0.7)
+        ("rust-llvm-bitcode" ,rust-llvm-bitcode-0.1))))
+    (home-page "https://github.com/messense/fat-macho-rs.git")
+    (synopsis "Mach-O Fat Binary Reader and Writer")
+    (description "This package provides a Mach-O Fat Binary Reader and Writer.")
+    (license license:expat)))
+
 (define-public rust-fsevent-2
   (package
     (name "rust-fsevent")
diff --git a/gnu/packages/crates-io.scm b/gnu/packages/crates-io.scm
index 1155dc10a1..fe9080c4f0 100644
--- a/gnu/packages/crates-io.scm
+++ b/gnu/packages/crates-io.scm
@@ -24461,31 +24461,6 @@ floats.")
         ("rust-wasm-bindgen-test" ,rust-wasm-bindgen-test-0.3)
         ("rust-wyhash" ,rust-wyhash-0.5))))))
 
-(define-public rust-fat-macho-0.4
-  (package
-    (name "rust-fat-macho")
-    (version "0.4.7")
-    (source (origin
-              (method url-fetch)
-              (uri (crate-uri "fat-macho" version))
-              (file-name (string-append name "-" version ".tar.gz"))
-              (sha256
-               (base32
-                "0ywr3xqi884i12d5mfidbma1hrd4rxj9f8jw7p4bignagmy13yk3"))
-              (snippet
-               #~(begin (use-modules (guix build utils))
-                        (delete-file-recursively "tests/fixtures")))))
-    (build-system cargo-build-system)
-    (arguments
-     `(#:tests? #f      ; Test files removed.
-       #:cargo-inputs
-       (("rust-goblin" ,rust-goblin-0.7)
-        ("rust-llvm-bitcode" ,rust-llvm-bitcode-0.1))))
-    (home-page "https://github.com/messense/fat-macho-rs.git")
-    (synopsis "Mach-O Fat Binary Reader and Writer")
-    (description "This package provides a Mach-O Fat Binary Reader and Writer.")
-    (license license:expat)))
-
 (define-public rust-fd-lock-3
   (package
     (name "rust-fd-lock")
diff --git a/gnu/packages/rust-apps.scm b/gnu/packages/rust-apps.scm
index 812efee26a..6a224762a8 100644
--- a/gnu/packages/rust-apps.scm
+++ b/gnu/packages/rust-apps.scm
@@ -58,6 +58,7 @@
   #:use-module (gnu packages base)
   #:use-module (gnu packages bash)
   #:use-module (gnu packages compression)
+  #:use-module (gnu packages crates-apple)
   #:use-module (gnu packages crates-io)
   #:use-module (gnu packages crates-graphics)
   #:use-module (gnu packages crates-tls)