ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gexp: Remove leftover parameter.

Browse source 
* guix/gexp.scm (gexp->sexp): Remove #:outputs parameter.  Adjust
  callers accordingly.
This commit is contained in:
Ludovic Courtès 2014-04-29 17:58:34 +02:00
parent 6d7b4206d7
commit bfd9eed955
1 changed files with 7 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
guix/gexp.scm
View file

@ -101,7 +101,7 @@ (define %modules modules)
(define outputs (gexp-outputs exp)) (define outputs (gexp-outputs exp))
(mlet* %store-monad ((inputs (lower-inputs (gexp-inputs exp))) (mlet* %store-monad ((inputs (lower-inputs (gexp-inputs exp)))
(sexp (gexp->sexp exp #:outputs outputs)) (sexp (gexp->sexp exp))
(builder (text-file (string-append name "-builder") (builder (text-file (string-append name "-builder")
(object->string sexp))) (object->string sexp)))
(modules (if (pair? %modules) (modules (if (pair? %modules)
@ -179,7 +179,7 @@ (define (add-reference-output ref result)
'() '()
(gexp-references exp))) (gexp-references exp)))
(define* (gexp->sexp exp #:key (outputs '())) (define* (gexp->sexp exp)
"Return (monadically) the sexp corresponding to EXP for the given OUTPUT, "Return (monadically) the sexp corresponding to EXP for the given OUTPUT,
and in the current monad setting (system type, etc.)" and in the current monad setting (system type, etc.)"
(define (reference->sexp ref) (define (reference->sexp ref)
@ -190,13 +190,12 @@ (define (reference->sexp ref)
(((? package? p) (? string? output)) (((? package? p) (? string? output))
(package-file p #:output output)) (package-file p #:output output))
(($ <output-ref> output) (($ <output-ref> output)
(match (member output outputs) ;; Output file names are not known in advance but the daemon defines
(#f ;; an environment variable for each of them at build time, so use
(error "no such output" output)) ;; that trick.
(_ (return `((@ (guile) getenv) ,output)))
(return `((@ (guile) getenv) ,output)))))
((? gexp? exp) ((? gexp? exp)
(gexp->sexp exp #:outputs outputs)) (gexp->sexp exp))
(((? string? str)) (((? string? str))
(return (if (direct-store-path? str) str ref))) (return (if (direct-store-path? str) str ref)))
((refs ...) ((refs ...)