summaryrefslogtreecommitdiff
path: root/guix/scripts/environment.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/scripts/environment.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/scripts/environment.scm')
-rw-r--r--guix/scripts/environment.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/scripts/environment.scm b/guix/scripts/environment.scm
index 7733fbcae4..86e1eb115f 100644
--- a/guix/scripts/environment.scm
+++ b/guix/scripts/environment.scm
@@ -374,8 +374,8 @@ requisite store items i.e. the union closure of all the inputs."
((? direct-store-path? path)
(list path)))))
- (mlet %store-monad ((reqs (sequence %store-monad
- (map input->requisites inputs))))
+ (mlet %store-monad ((reqs (mapm %store-monad
+ input->requisites inputs)))
(return (delete-duplicates (concatenate reqs)))))
(define (status->exit-code status)