diff options
Diffstat (limited to 'guix/build-system/trivial.scm')
| -rw-r--r-- | guix/build-system/trivial.scm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/guix/build-system/trivial.scm b/guix/build-system/trivial.scm index 0f89524231..73d452aea2 100644 --- a/guix/build-system/trivial.scm +++ b/guix/build-system/trivial.scm @@ -54,7 +54,10 @@ "Run build expression BUILDER, an expression, for SYSTEM. SOURCE is ignored." (mlet %store-monad ((guile (package->derivation (or guile (default-guile)) - system #:graft? #f))) + system #:graft? #f)) + (builder -> (if (pair? builder) + (sexp->gexp builder) + builder))) (gexp->derivation name (with-build-variables inputs outputs builder) #:system system #:target #f @@ -72,7 +75,10 @@ ignored." "Run build expression BUILDER, an expression, for SYSTEM. SOURCE is ignored." (mlet %store-monad ((guile (package->derivation (or guile (default-guile)) - system #:graft? #f))) + system #:graft? #f)) + (builder -> (if (pair? builder) + (sexp->gexp builder) + builder))) (gexp->derivation name (with-build-variables (append build-inputs target-inputs) outputs |