50/137: gnu: rust-sqlite3-src-0.4: Unbundle sqlite3 source.

[guix-commits]

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

commit 347e3e5bfcf73d242921681a472a5a4687ca36e3
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Wed Dec 20 12:47:20 2023 +0200

    gnu: rust-sqlite3-src-0.4: Unbundle sqlite3 source.
    
    * gnu/packages/crates-io.scm (rust-sqlite3-src-0.4)[source]: Add snippet
    to remove bundled sqlite3 sources and force linking to shared library.
    
    Change-Id: If42f8a47b954f67f86c8c7aa7fba178df15cb971
---
 gnu/packages/crates-io.scm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/crates-io.scm b/gnu/packages/crates-io.scm
index 3fceae079b..61ba0a0854 100644
--- a/gnu/packages/crates-io.scm
+++ b/gnu/packages/crates-io.scm
@@ -73226,7 +73226,17 @@ OIDs)")
        (uri (crate-uri "sqlite3-src" version))
        (file-name (string-append name "-" version ".tar.gz"))
        (sha256
-        (base32 "14ancc9jafw5ql9carg27icjxcfrdz5izxk4bj7fp5n909x5m0fi"))))
+        (base32 "14ancc9jafw5ql9carg27icjxcfrdz5izxk4bj7fp5n909x5m0fi"))
+       (snippet
+        #~(begin (use-modules (guix build utils))
+                 ;; Only allow for linking to system sqlite3.
+                 (delete-file-recursively "source")
+                 (delete-file "build.rs")
+                 (with-output-to-file "build.rs"
+                   (lambda _
+                     (format #t "fn main (){~@
+                             println!(\"cargo:rustc-link-lib=sqlite3\");~@
+                             }~%")))))))
     (arguments
      `(#:cargo-inputs
        (("rust-cc" ,rust-cc-1)