diff options
| -rw-r--r-- | guix/scripts/describe.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/scripts/describe.scm b/guix/scripts/describe.scm index e59502076c..d3203e9924 100644 --- a/guix/scripts/describe.scm +++ b/guix/scripts/describe.scm @@ -40,7 +40,7 @@ (lambda (opt name arg result) (unless (member arg '("human" "channels")) (leave (G_ "~a: unsupported output format~%") arg)) - (alist-cons 'format 'channels result))) + (alist-cons 'format (string->symbol arg) result))) (option '(#\h "help") #f #f (lambda args (show-help) |