[gnunet-scheme] 05/324: Correct dependencies in (gnu gnunet directory)

[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 44bcfbbe194c007ad6d3c287723ecdaa5518b15d
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Tue Nov 3 08:29:04 2020 +0100

    Correct dependencies in (gnu gnunet directory)
---
 gnu/gnunet/directory.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/gnu/gnunet/directory.scm b/gnu/gnunet/directory.scm
index d06b648..1e69c71 100644
--- a/gnu/gnunet/directory.scm
+++ b/gnu/gnunet/directory.scm
@@ -57,6 +57,8 @@
          (rnrs bytevectors)
          (only (guile) floor/ 1+)
          (ice-9 receive)
+          (only (gnu gnunet fs-uri) chk-uri-file-length chk-uri-parse)
+          (only (srfi srfi-43) vector-unfold)
          #;(gnu gnunet metadata))
 
   ;; constant from gnunet-0.13.1/src/fs/fs.h
@@ -100,7 +102,7 @@ The MIMETYPE may not be already set.
 
 For reproducibility, it is important to be consistent in the
 use or inuse of data."
-    (let ((fsize (uri-chk-file-size uri))
+    (let ((fsize (chk-uri-file-length (chk-uri-parse uri)))
          (meta-old-size (meta-deserialized-size meta-old)))
       (receive (meta-to-use meta-size)
          ;; Try inlining data, except if it's too large.

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