diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-05-24 20:51:49 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-05-24 23:05:28 +0200 |
| commit | a371aa225c2fb0a7071609d10bbddbef353a0da5 (patch) | |
| tree | c41ff70edd434bae052bd57e320dfdfa3a816706 /tests/size.scm | |
| parent | a61cd1d0fd642c45bc61ef52f09d8f62ce3976b8 (diff) | |
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.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/size.scm b/tests/size.scm index fcd590283dc..068ebc1d687 100644 --- a/tests/size.scm +++ b/tests/size.scm | |||
| @@ -1,5 +1,5 @@ | |||
| 1 | ;;; GNU Guix --- Functional package management for GNU | 1 | ;;; GNU Guix --- Functional package management for GNU |
| 2 | ;;; Copyright © 2015 Ludovic Courtès <ludo@gnu.org> | 2 | ;;; Copyright © 2015, 2016 Ludovic Courtès <ludo@gnu.org> |
| 3 | ;;; | 3 | ;;; |
| 4 | ;;; This file is part of GNU Guix. | 4 | ;;; This file is part of GNU Guix. |
| 5 | ;;; | 5 | ;;; |
| @@ -54,7 +54,7 @@ | |||
| 54 | (mbegin %store-monad | 54 | (mbegin %store-monad |
| 55 | (built-derivations (list file2)) | 55 | (built-derivations (list file2)) |
| 56 | (mlet %store-monad ((profiles (store-profile | 56 | (mlet %store-monad ((profiles (store-profile |
| 57 | (derivation->output-path file2))) | 57 | (list (derivation->output-path file2)))) |
| 58 | (bash (interned-file | 58 | (bash (interned-file |
| 59 | (search-bootstrap-binary | 59 | (search-bootstrap-binary |
| 60 | "bash" (%current-system)) "bash" | 60 | "bash" (%current-system)) "bash" |
