01/02: self: Add dependency on guile-gdbm-ffi.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 6d52844cd4c376b7b344b448de8a2c7a3d252afb
Author: Ludovic Courtès <address@hidden>
Date:   Fri Jun 1 17:31:44 2018 +0200

    self: Add dependency on guile-gdbm-ffi.
    
    Fixes a regression introduced in
    331ac4cc239727992329207ba428b3f26cae91d9 whereby "guile-gdbm-ffi" would
    now be mandatory.
    
    * guix/self.scm (specification->package): Add "guile-gdbm-ffi" and
    "guile2.0-gdbm-ffi".
    (compiled-guix)[guile-gdbm-ffi]: New variables.
    [dependencies]: Add it.
---
 guix/self.scm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/guix/self.scm b/guix/self.scm
index 64cf303..9ff9490 100644
--- a/guix/self.scm
+++ b/guix/self.scm
@@ -82,6 +82,7 @@ GUILE-VERSION (\"2.0\" or \"2.2\"), or #f if none of the 
packages matches."
       ("guile-json" (ref '(gnu packages guile) 'guile-json))
       ("guile-ssh"  (ref '(gnu packages ssh)   'guile-ssh))
       ("guile-git"  (ref '(gnu packages guile) 'guile-git))
+      ("guile-gdbm-ffi" (ref '(gnu packages guile) 'guile-gdbm-ffi))
       ("guile-sqlite3" (ref '(gnu packages guile) 'guile-sqlite3))
       ("libgcrypt"  (ref '(gnu packages gnupg) 'libgcrypt))
       ("zlib"       (ref '(gnu packages compression) 'zlib))
@@ -93,6 +94,7 @@ GUILE-VERSION (\"2.0\" or \"2.2\"), or #f if none of the 
packages matches."
       ("guile2.0-json" (ref '(gnu packages guile) 'guile2.0-json))
       ("guile2.0-ssh"  (ref '(gnu packages ssh) 'guile2.0-ssh))
       ("guile2.0-git"  (ref '(gnu packages guile) 'guile2.0-git))
+      ("guile2.0-gdbm-ffi" (ref '(gnu packages guile) 'guile2.0-gdbm-ffi))
       ;; XXX: No "guile2.0-sqlite3".
       (_               #f))))                     ;no such package
 
@@ -217,6 +219,11 @@ list of file-name/file-like objects suitable as inputs to 
'imported-files'."
                        "guile-git"
                        "guile2.0-git"))
 
+  (define guile-gdbm-ffi
+    (package-for-guile guile-version
+                       "guile-gdbm-ffi"
+                       "guile2.0-gdbm-ffi"))
+
 
   (define guile-sqlite3
     (package-for-guile guile-version
@@ -227,7 +234,8 @@ list of file-name/file-like objects suitable as inputs to 
'imported-files'."
     (match (append-map (lambda (package)
                          (cons (list "x" package)
                                (package-transitive-propagated-inputs package)))
-                       (list guile-git guile-json guile-ssh guile-sqlite3))
+                       (list guile-git guile-json guile-ssh
+                             guile-gdbm-ffi guile-sqlite3))
       (((labels packages _ ...) ...)
        packages)))