summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-11-19 16:56:47 +0100
committerLudovic Courtès <ludo@gnu.org>2016-11-19 18:44:53 +0100
commit713335fa610713dc9491fc4848f5f5842423b143 (patch)
tree847513fe3cf72de59b0695b0aa068a6415aa9e0c
parent18675264c69dfc68b869d066551c444da2f47566 (diff)
downloadpatches-713335fa610713dc9491fc4848f5f5842423b143.tar
patches-713335fa610713dc9491fc4848f5f5842423b143.tar.gz
derivations: Add 'raw-derivation'.
* guix/derivations.scm (raw-derivation): New procedure. * guix/download.scm (raw-derivation): Remove. * guix/gexp.scm (raw-derivation): Remove.
-rw-r--r--guix/derivations.scm4
-rw-r--r--guix/download.scm3
-rw-r--r--guix/gexp.scm3
3 files changed, 4 insertions, 6 deletions
diff --git a/guix/derivations.scm b/guix/derivations.scm
index e378a7cb03..7ed9bd61d3 100644
--- a/guix/derivations.scm
+++ b/guix/derivations.scm
@@ -86,6 +86,7 @@
derivation-path->output-path
derivation-path->output-paths
derivation
+ raw-derivation
map-derivation
@@ -1306,3 +1307,6 @@ ALLOWED-REFERENCES, DISALLOWED-REFERENCES, LOCAL-BUILD?, and SUBSTITUTABLE?."
(define built-derivations
(store-lift build-derivations))
+
+(define raw-derivation
+ (store-lift derivation))
diff --git a/guix/download.scm b/guix/download.scm
index 64a1d2f084..e2e5cee777 100644
--- a/guix/download.scm
+++ b/guix/download.scm
@@ -322,9 +322,6 @@ the daemon."
result))
store)))))
-(define raw-derivation
- (store-lift derivation))
-
(define* (built-in-download file-name url
#:key system hash-algo hash
mirrors content-addressed-mirrors
diff --git a/guix/gexp.scm b/guix/gexp.scm
index 05178a5ecc..fd5dc49233 100644
--- a/guix/gexp.scm
+++ b/guix/gexp.scm
@@ -453,9 +453,6 @@ whether this should be considered a \"native\" input or not."
'()))
(gexp-references gexp)))))
-(define raw-derivation
- (store-lift derivation))
-
(define* (lower-inputs inputs
#:key system target)
"Turn any package from INPUTS into a derivation for SYSTEM; return the