aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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