1 files changed, 9 insertions(+), 1 deletions(-)

M modules/ruther/environment.scm

@@ 16,6 16,13 @@
              make-guile-environment
              package->application-environment))
 
+(define (manifest->packages manifest)
+  "Return the list of packages in MANIFEST."
+  (filter-map (lambda (entry)
+                (let ((item (manifest-entry-item entry)))
+                  (if (package? item) item #f)))
+              (manifest-entries manifest)))
+
 ;; Makes a package that uses the given environment, and wraps the binaries in it.
 ;; TODO: replace the paths (only in text files!!! not in binaries...) in all extra-paths files,
 ;; so instead of symlinking some of the files might have to be just copied and substituted.


@@ 38,7 45,8 @@
      (native-inputs
       (list file))
      (inputs
-      (list bash))
+      (cons* bash
+            (manifest->packages manifest)))
      (arguments
       (list
        #:modules (source-module-closure