Die with dignity on validation error.

BIMSBbioinfo · Oct 12, 2016 · 9bdf022 · 9bdf022
1 parent 7a99f65
commit 9bdf022
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/rcas/config.scm.in b/rcas/config.scm.in
@@ -44,7 +44,9 @@
   "Abort if any of the declared files in CONFIG don't exist."
   (for-each (lambda (file)
               (when (not (file-exists? file))
-                (error "File does not exist, check your configuration: " file)))
+                (format (current-error-port)
+                        "File does not exist, check your configuration: ~a\n" file)
+                (exit 1)))
             (append (map (cute assoc-ref config <>)
                          '(assets-dir upload-dir results-dir))
                     (map (match-lambda