[gnunet-scheme] 41/324: scripts: publish-store: fix predicate of --format option

[gnunet]

This is an automated email from the git hooks/post-receive script.

maxime-devos pushed a commit to branch master
in repository gnunet-scheme.

commit 05c4d54fab12149c4378acf0fb863cb7f4360997
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Sat Jan 23 19:36:19 2021 +0100

    scripts: publish-store: fix predicate of --format option
    
    * gnu/gnunet/scripts/publish-store.scm
      (%options-specification): fix quoting and list of
      allowed values of '--format'.
---
 gnu/gnunet/scripts/publish-store.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/gnu/gnunet/scripts/publish-store.scm 
b/gnu/gnunet/scripts/publish-store.scm
index 06b73c5..5c275a4 100644
--- a/gnu/gnunet/scripts/publish-store.scm
+++ b/gnu/gnunet/scripts/publish-store.scm
@@ -42,6 +42,7 @@
          (guile)
          (only (srfi srfi-1)
                concatenate)
+         (srfi srfi-26)
          (rnrs bytevectors)
          (ice-9 binary-ports)
          (ice-9 textual-ports)
@@ -54,11 +55,11 @@
                define*))
   (begin
     (define %options-specification
-      '((version  (single-char #\v))
+      `((version  (single-char #\v))
        (help     (single-char #\h))
        (format   (single-char #\f)
                  (value #t)
-                 (predicate ,(cute member <> '("gnunet-nar"))))
+                 (predicate ,(cute member <> '("gnunet-nix-archive-json/0"))))
        (input    (single-char #\i)
                  (value #t))
        (simulate (single-char #\s))

-- 
To stop receiving notification emails like this one, please contact
gnunet@gnunet.org.