diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-06-25 15:33:58 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-12-19 23:52:24 +0100 |
| commit | b334674fe5e99209e4f726e0d692ffa6bab9d6a1 (patch) | |
| tree | 7c60a860deb01f6456eba2fdb8bc44c8a51ec564 /guix/scripts/environment.scm | |
| parent | 73b0ebdd5e3bdda378d354e7388a56dd33da6225 (diff) | |
| download | gnu-guix-b334674fe5e99209e4f726e0d692ffa6bab9d6a1.tar gnu-guix-b334674fe5e99209e4f726e0d692ffa6bab9d6a1.tar.gz | |
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.scm | 4 |
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) |