summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMaxim Cournoyer <maxim.cournoyer@gmail.com>2022-04-23 00:46:14 -0400
committerMaxim Cournoyer <maxim.cournoyer@gmail.com>2022-04-23 00:59:07 -0400
commit96dbcd7443afed784ee45739db0b1ed1d8c36071 (patch)
tree1d18f7b71e86a9a2ed8730d66e8958777a29f219
parente32cc011bbe899fda432906776702f74fa6b1450 (diff)
pack: Fix match error for multi-packages deb packs.
* guix/scripts/pack.scm: Remove duplicated copyright line. (debian-archive)[single-entry]: Match one or anything, not one or zero. Reported-by: jgart <jgart@dismail.de>
-rw-r--r--guix/scripts/pack.scm5
1 files changed, 2 insertions, 3 deletions
diff --git a/guix/scripts/pack.scm b/guix/scripts/pack.scm
index 38bc021665..ebb3c6498f 100644
--- a/guix/scripts/pack.scm
+++ b/guix/scripts/pack.scm
@@ -5,9 +5,8 @@
;;; Copyright © 2018 Chris Marusich <cmmarusich@gmail.com>
;;; Copyright © 2018 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr>
-;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
+;;; Copyright © 2020, 2021, 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2020 Eric Bavier <bavier@posteo.net>
-;;; Copyright © 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -750,7 +749,7 @@ Valid compressors are: ~a~%") compressor-name %valid-compressors)))
(match (manifest-entries manifest)
((entry)
entry)
- (() #f)))
+ (_ #f)))
(define package-name (or (and=> single-entry manifest-entry-name)
(manifest->friendly-name manifest)))