[gnunet-scheme] 09/324: Fix libextractor imports

[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 1dea2de0023c7437cbedd207628390dbcd5c8076
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Thu Nov 5 10:51:23 2020 +0100

    Fix libextractor imports
---
 gnu/gnunet/directory.scm | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/gnu/gnunet/directory.scm b/gnu/gnunet/directory.scm
index 94c8a8a..5451e67 100644
--- a/gnu/gnunet/directory.scm
+++ b/gnu/gnunet/directory.scm
@@ -59,7 +59,10 @@
          (ice-9 receive)
           (only (gnu gnunet fs-uri) chk-uri-file-length chk-uri-parse)
           (only (srfi srfi-43) vector-unfold)
-         (only (gnu gnunet metadata) meta-data-extend))
+         (only (gnu gnunet metadata) meta-data-extend)
+         (prefix (only (gnu extractor metatypes)
+                       MIMETYPE GNUNET_FULL_DATA)
+                 EXTRACTOR_METATYPE_))
 
   ;; constant from gnunet-0.13.1/src/fs/fs.h
   (define DBLOCK_SIZE (* 32 1024))
@@ -89,8 +92,8 @@ The MIMETYPE may not be already set.
 
 @param md metadata to add mimetype to"
     ;; TODO: check for pre-existing mime-types
-    (meta-data-extend md extractor:METATYPE_MIMETYPE
-                     extractor:METAFORMAT_UTF8
+    (meta-data-extend md EXTRACTOR_METATYPE_MIMETYPE
+                     EXTRACTOR_METAFORMAT_UTF8
                      "text/plain"
                      (string->utf8 directory-mime)))
 
@@ -114,8 +117,8 @@ use or inuse of data."
                   (< 0 fsize)) ; data not too large?
               (let* ((meta
                      (meta-data-extend meta-old
-                                       extractor:METATYPE_GNUNET_FULL_DATA
-                                       extractor:METAFORMAT_BINARY
+                                       EXTRACTOR_METATYPE_GNUNET_FULL_DATA
+                                       EXTRACTOR_METAFORMAT_BINARY
                                        #f
                                        data))
                     (slen (+ (string-length uri) 1))

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