packages: Allow inputs that are local files.

* guix/packages.scm (package-derivation): Add to the store inputs that are local files.
2012-07-01 17:32:03 +02:00 · 2012-07-01 17:32:03 +02:00 · e67ac6e668
parent 74cd03b1a0
commit e67ac6e668
1 changed files with 7 additions and 1 deletions
--- a/guix/packages.scm
+++ b/guix/packages.scm
@ -179,7 +179,13 @@ representation."
                                sub-drv))
                         (((? string? name)
                           (and (? string?) (? derivation-path?) drv))
-                          (list name drv)))
+                          (list name drv))
+                         (((? string? name)
+                           (and (? string?) (? (negate store-path?))
+                                (? file-exists? file)))
+                          (list name
+                                (add-to-store store (basename file)
+                                              #t #f "sha256" file))))
                        (concatenate (list native-inputs inputs
                                           propagated-inputs)))))
       (apply builder