summary refs log tree commit diff
path: root/tests/size.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-05-24 20:51:49 +0200
committerLudovic Courtès <ludo@gnu.org>2016-05-24 23:05:28 +0200
commita371aa225c2fb0a7071609d10bbddbef353a0da5 (patch)
treec41ff70edd434bae052bd57e320dfdfa3a816706 /tests/size.scm
parenta61cd1d0fd642c45bc61ef52f09d8f62ce3976b8 (diff)
downloadguix-a371aa225c2fb0a7071609d10bbddbef353a0da5.tar.gz
size: 'store-profile' takes a list of store items.
* guix/scripts/size.scm (mappend-map): New procedure.
(store-profile): Change 'item' to 'items' and adjust code accordingly.
(guix-size): Update caller.
* tests/size.scm ("store-profile"): Likewise.
Diffstat (limited to 'tests/size.scm')
-rw-r--r--tests/size.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/size.scm b/tests/size.scm
index fcd590283d..068ebc1d68 100644
--- a/tests/size.scm
+++ b/tests/size.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2015 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2015, 2016 Ludovic Courtès <ludo@gnu.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -54,7 +54,7 @@
     (mbegin %store-monad
       (built-derivations (list file2))
       (mlet %store-monad ((profiles (store-profile
-                                     (derivation->output-path file2)))
+                                     (list (derivation->output-path file2))))
                           (bash     (interned-file
                                      (search-bootstrap-binary
                                       "bash" (%current-system)) "bash"