about summary refs log tree commit diff
path: root/genenetwork-development.scm
diff options
context:
space:
mode:
Diffstat (limited to 'genenetwork-development.scm')
-rw-r--r--genenetwork-development.scm17
1 files changed, 9 insertions, 8 deletions
diff --git a/genenetwork-development.scm b/genenetwork-development.scm
index 00f8927..1665b44 100644
--- a/genenetwork-development.scm
+++ b/genenetwork-development.scm
@@ -579,14 +579,15 @@ command to be executed."
             (invoke "./pre-inst-env" "./dump.scm"
                     connection-settings-file
                     dump-directory)
-            ;; Validate dumped RDF.
-            (invoke #$(file-append raptor2 "/bin/rapper")
-                    "--input" "turtle"
-                    "--count"
-                    ;; We use --ignore-errors because we don't want to
-                    ;; print out potentially sensitive data.
-                    "--ignore-errors"
-                    (string-append dump-directory "/dump.ttl"))
+            ;; Validate dumped RDF, sending the error output to
+            ;; oblivion because we don't want to print out potentially
+            ;; sensitive data.
+            (with-error-to-file "/dev/null"
+              (cut invoke
+                   #$(file-append raptor2 "/bin/rapper")
+                   "--input" "turtle"
+                   "--count"
+                   (string-append dump-directory "/dump.ttl")))
             ;; Load RDF into virtuoso.
             (invoke "./pre-inst-env" "./load-rdf.scm"
                     connection-settings-file