From a779363b6aa581e88eda21f9f35530962d54ac25 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sun, 7 Mar 2021 15:26:47 +0100 Subject: gexp: Allowed/disallowed references and graphs never refer to grafted inputs. * guix/gexp.scm (lower-reference-graphs, lower-references): Wrap 'lower-object' call in 'without-grafting' since these things never refer to grafted inputs. --- guix/gexp.scm | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/guix/gexp.scm b/guix/gexp.scm index edd1224aa9..ab83c1e621 100644 --- a/guix/gexp.scm +++ b/guix/gexp.scm @@ -887,8 +887,9 @@ corresponding or store item." (match graphs (((file-names . inputs) ...) - (mlet %store-monad ((inputs (lower-inputs (map tuple->gexp-input inputs) - system target))) + (mlet %store-monad ((inputs (without-grafting + (lower-inputs (map tuple->gexp-input inputs) + system target)))) (return (map cons file-names inputs)))))) (define* (lower-references lst #:key system target) @@ -901,13 +902,15 @@ names and file names suitable for the #:allowed-references argument to ((? string? output) (return output)) (($ thing output native?) - (mlet %store-monad ((drv (lower-object thing system - #:target (if native? - #f target)))) + (mlet %store-monad ((drv (without-grafting + (lower-object thing system + #:target (if native? + #f target))))) (return (derivation->output-path drv output)))) (thing - (mlet %store-monad ((drv (lower-object thing system - #:target target))) + (mlet %store-monad ((drv (without-grafting + (lower-object thing system + #:target target)))) (return (derivation->output-path drv)))))) (mapm/accumulate-builds lower lst))) -- cgit v1.2.3