pack: Correctly report "unknown pack format" errors.

* guix/scripts/pack.scm (guix-pack): Fix "unknown pack format" error
message.
This commit is contained in:
Ludovic Courtès 2018-08-31 17:26:19 +02:00
parent 8e1395be5c
commit 301aa9e76c
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -748,8 +748,8 @@ (define (manifest-from-args store opts)
(build-image (match (assq-ref %formats pack-format) (build-image (match (assq-ref %formats pack-format)
((? procedure? proc) proc) ((? procedure? proc) proc)
(#f (#f
(leave (G_ "~a: unknown pack format") (leave (G_ "~a: unknown pack format~%")
format)))) pack-format))))
(localstatedir? (assoc-ref opts 'localstatedir?))) (localstatedir? (assoc-ref opts 'localstatedir?)))
(run-with-store store (run-with-store store
(mlet* %store-monad ((profile (profile-derivation (mlet* %store-monad ((profile (profile-derivation