From dc1045be7d9ba2257ce2ce97c9fdd3c02e5b1897 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 6 Sep 2012 00:00:00 +0200
Subject: [PATCH] packages: Accept <origin> as package inputs.

* guix/packages.scm (package-derivation): Accept use of an <origin> as
  an input.
---
 guix/packages.scm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/guix/packages.scm b/guix/packages.scm
index 094f8157d0..1394f980f7 100644
--- a/guix/packages.scm
+++ b/guix/packages.scm
@@ -245,6 +245,9 @@ recursively."
                               (list name
                                     (add-to-store store (basename file)
                                                   #t #f "sha256" file)))
+                             (((? string? name) (? origin? source))
+                              (list name
+                                    (package-source-derivation store source)))
                              (x
                               (raise (condition (&package-input-error
                                                  (package package)