[gnunet-scheme] 47/324: scripts: publish-store: don't index temporary files

[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 4341fef2e9df0bad3ead3797daaa418c5e1bd1dd
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Sat Jan 23 22:23:17 2021 +0100

    scripts: publish-store: don't index temporary files
    
    * gnu/gnunet/scripts/publish-store.scm (publish-object):
      simplify argument list, and reorder arguments to 'gnunet-publish'.
---
 gnu/gnunet/scripts/publish-store.scm | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/gnu/gnunet/scripts/publish-store.scm 
b/gnu/gnunet/scripts/publish-store.scm
index 68d4376..591974f 100644
--- a/gnu/gnunet/scripts/publish-store.scm
+++ b/gnu/gnunet/scripts/publish-store.scm
@@ -233,10 +233,7 @@ referred to by their hash."
             (wrapped/string (scm->json-string wrapped)))
        wrapped/string))
 
-    (define* (publish-object data
-                            #:key
-                            #:allow-other-keys
-                            #:rest r)
+    (define* (publish-object data #:rest r)
       "Publish DATA, a bytevector or filename, and return
 the resulting GNUnet FS URI. If SIMULATE is #t, do not
 actually publish the file, only compute its hash."
@@ -246,7 +243,7 @@ actually publish the file, only compute its hash."
                (put-bytevector port data)
                (close-port port)
                (apply gnunet-publish name
-                      #:no-index #t r))))
+                      (append r `(#:no-index #t))))))
            ((string? data)
             (apply gnunet-publish data r))))
 

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