about summary refs log tree commit diff
diff options
context:
space:
mode:
authorArun Isaac2022-06-24 14:11:20 +0530
committerArun Isaac2022-06-24 14:11:20 +0530
commit96fb9608242254a1fc53bbd71168db4245458c8f (patch)
tree6e7b7b429b8a41787048e6416772a07ac9c76d56
parent073a754bfd4d2d2b3a6526245d26d676d61c987b (diff)
downloadgn-machines-96fb9608242254a1fc53bbd71168db4245458c8f.tar.gz
Send rapper output to /dev/null instead of using --ignore-errors.
The --ignore-errors flag not only avoids printing triples, but also
actually ignores errors. What a surprise! ;-) As a result, rapper does
not stop invalid turtle files, and they end up erroring out when
uploaded to virtuoso.

* genenetwork-development.scm (dump-genenetwork-database): Send rapper
output to /dev/null instead of using --ignore-errors.
-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