summaryrefslogtreecommitdiff
path: root/guix/profiles.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-06-25 15:33:58 +0200
committerLudovic Courtès <ludo@gnu.org>2018-12-19 23:52:24 +0100
commitb334674fe5e99209e4f726e0d692ffa6bab9d6a1 (patch)
tree7c60a860deb01f6456eba2fdb8bc44c8a51ec564 /guix/profiles.scm
parent73b0ebdd5e3bdda378d354e7388a56dd33da6225 (diff)
Use 'mapm' instead of 'sequence' + 'map'.
Previously we'd use the (sequence M (map P L)) idiom just because 'mapm' was slower (not specialized for the given monad). This is no longer the case since commit dcb95c1fc936d74dfdf84b7e59eff66cb99c5a63. * guix/gexp.scm (lower-inputs): Use (mapm M P L) instead of (sequence M (map P L)). (lower-references, gexp->sexp, imported-files): Likewise. * guix/profiles.scm (profile-derivation): Likewise. * guix/scripts/environment.scm (inputs->requisites): Likewise. * guix/scripts/system.scm (copy-closure): Likewise.
Diffstat (limited to 'guix/profiles.scm')
-rw-r--r--guix/profiles.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/guix/profiles.scm b/guix/profiles.scm
index 6d5da0ac4c..8142e5e8e2 100644
--- a/guix/profiles.scm
+++ b/guix/profiles.scm
@@ -1383,10 +1383,10 @@ are cross-built for TARGET."
#:target target)))
(extras (if (null? (manifest-entries manifest))
(return '())
- (sequence %store-monad
- (map (lambda (hook)
- (hook manifest))
- hooks)))))
+ (mapm %store-monad
+ (lambda (hook)
+ (hook manifest))
+ hooks))))
(define inputs
(append (filter-map (lambda (drv)
(and (derivation? drv)