03/03: gnu: mongodb: Remove some bundled sources.

[Efraim Flashner]

efraim pushed a commit to branch master
in repository guix.

commit 51b0f09e058955120716d9efb8b76861255b1052
Author: Efraim Flashner <address@hidden>
Date:   Sun Nov 26 10:02:28 2017 +0200

    gnu: mongodb: Remove some bundled sources.
    
    * gnu/packages/databases.scm (mongodb)[source]: Add snippet to remove
    some of the bundled sources.
    [input]: Remove unused boost input.
---
 gnu/packages/databases.scm | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/databases.scm b/gnu/packages/databases.scm
index 0d3b496..ab4d174 100644
--- a/gnu/packages/databases.scm
+++ b/gnu/packages/databases.scm
@@ -98,6 +98,7 @@
   #:use-module (guix build-system ruby)
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system r)
+  #:use-module ((guix build utils) #:hide (which))
   #:use-module (guix utils)
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-26)
@@ -385,6 +386,15 @@ applications.")
               (file-name (string-append name "-" version ".tar.gz"))
               (sha256
                (base32 "0676lvkljj7a5hdhv78dbykqnqrj9lbn9799mi84b8vbnzsq961r"))
+              (modules '((guix build utils)))
+              (snippet
+               '(begin
+                  (for-each (lambda (dir)
+                              (delete-file-recursively
+                                (string-append "src/third_party/" dir)))
+                            '("pcre-8.41" "scons-2.5.0" "snappy-1.1.3"
+                              "valgrind-3.11.0" "wiredtiger"
+                              "yaml-cpp-0.5.3" "zlib-1.2.8"))))
               (patches
                (list
                 (search-patch 
"mongodb-support-unknown-linux-distributions.patch")))))
@@ -398,8 +408,7 @@ applications.")
             (_ `()))
        ("yaml-cpp" ,yaml-cpp)
        ("zlib" ,zlib)
-       ("snappy" ,snappy)
-       ("boost" ,boost)))
+       ("snappy" ,snappy)))
     (native-inputs
      `(("scons" ,scons)
        ("python" ,python-2)