diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-05-24 21:37:13 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-05-24 23:05:31 +0200 |
| commit | db761534df3b57122da8e8b05a678182b59a9d3a (patch) | |
| tree | 7d142efd965f16c1ce7d489ee1ff1c0117d8cb36 /guix/scripts/size.scm | |
| parent | a371aa225c2fb0a7071609d10bbddbef353a0da5 (diff) | |
| download | patches-db761534df3b57122da8e8b05a678182b59a9d3a.tar patches-db761534df3b57122da8e8b05a678182b59a9d3a.tar.gz | |
size: Accept several arguments.
* guix/scripts/size.scm (display-profile): Display WHOLE at then end.
(guix-size): Accept several FILES.
* doc/guix.texi (Invoking guix size): Add example with several items.
Diffstat (limited to 'guix/scripts/size.scm')
| -rw-r--r-- | guix/scripts/size.scm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/guix/scripts/size.scm b/guix/scripts/size.scm index 8a7974729b..843213834e 100644 --- a/guix/scripts/size.scm +++ b/guix/scripts/size.scm @@ -91,7 +91,8 @@ if ITEM is not in the store." (sort profile (match-lambda* ((($ <profile> _ _ total1) ($ <profile> _ _ total2)) - (> total1 total2))))))) + (> total1 total2))))) + (format port (_ "total: ~,1f MiB~%") (/ whole MiB 1.)))) (define display-profile* (lift display-profile %store-monad)) @@ -280,7 +281,7 @@ Report the size of PACKAGE and its dependencies.\n")) (match files (() (leave (_ "missing store item argument\n"))) - ((file) + ((files ..1) (leave-on-EPIPE ;; Turn off grafts because (1) hydra.gnu.org does not serve grafted ;; packages, and (2) they do not make any difference on the @@ -292,13 +293,12 @@ Report the size of PACKAGE and its dependencies.\n")) #:substitute-urls urls) (run-with-store store - (mlet* %store-monad ((item (ensure-store-item file)) - (profile (store-profile (list item)))) + (mlet* %store-monad ((items (mapm %store-monad + ensure-store-item files)) + (profile (store-profile items))) (if map-file (begin (profile->page-map profile map-file) (return #t)) (display-profile* profile))) - #:system system))))) - ((files ...) - (leave (_ "too many arguments\n"))))))) + #:system system))))))))) |