diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-06-19 22:22:15 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-06-21 23:39:11 +0200 |
| commit | a8aa84af395246b3b2ac6ace62a5d611737d1f55 (patch) | |
| tree | e7431fca48c8579722b3ca0b852b81d79290aea6 | |
| parent | bf76d98789a0fc6303c303beddbc1ed609f2a6ea (diff) | |
| download | guix-a8aa84af395246b3b2ac6ace62a5d611737d1f55.tar.gz | |
size: Remove unused variables.
* guix/scripts/size.scm (ensure-store-item): Remove #:dry-run? parameter. (%options): Remove 'dry-run?' variable.
| -rw-r--r-- | guix/scripts/size.scm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/guix/scripts/size.scm b/guix/scripts/size.scm index 41dd6043a7..2fe2f02356 100644 --- a/guix/scripts/size.scm +++ b/guix/scripts/size.scm @@ -168,8 +168,7 @@ profile of ITEM and its requisites." (return (profile item size dependencies))))) sizes))) -(define* (ensure-store-item spec-or-item - #:key dry-run?) +(define* (ensure-store-item spec-or-item) "Return a store file name. If SPEC-OR-ITEM is a store file name, return it as is. Otherwise, assume SPEC-OR-ITEM is a package output specification such as \"guile:debug\" or \"gcc-4.8\" and return its store file name." @@ -231,8 +230,7 @@ Report the size of PACKAGE and its dependencies.\n")) (('argument . file) file) (_ #f)) opts)) - (system (assoc-ref opts 'system)) - (dry-run? (assoc-ref opts 'dry-run?))) + (system (assoc-ref opts 'system))) (match files (() (leave (_ "missing store item argument\n"))) |