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