aboutsummaryrefslogtreecommitdiff
path: root/load-rdf.scm
diff options
context:
space:
mode:
authorMunyoki Kilyungi2023-08-24 12:48:22 +0300
committerMunyoki Kilyungi2023-08-24 12:49:39 +0300
commit540f0a540114be62a7049a125b0403c7d128ad90 (patch)
tree7d58b6572545594061edebcf6ee4fc4a1da43646 /load-rdf.scm
parenta50c7d3479f8220301db4dcd7b7f07a1483d0020 (diff)
downloadgn-transform-databases-540f0a540114be62a7049a125b0403c7d128ad90.tar.gz
Remove match-case for RDF-FILE
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'load-rdf.scm')
-rwxr-xr-xload-rdf.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/load-rdf.scm b/load-rdf.scm
index 5dcfd62..0b90958 100755
--- a/load-rdf.scm
+++ b/load-rdf.scm
@@ -89,7 +89,7 @@ CHECKPOINT;"
(define main
(match-lambda*
- ((_ connection-settings-file rdf-file)
+ ((_ connection-settings-file)
(let ((connection-settings
(call-with-input-file connection-settings-file
read)))
@@ -119,7 +119,7 @@ CHECKPOINT;"
(assq-ref connection-settings 'virtuoso-password)
%graph-uri)))))
((arg0 _ ...)
- (format (current-error-port) "Usage: ~a CONNECTION-SETTINGS-FILE RDF-FILE-OR-RDF-DIR~%" arg0)
+ (format (current-error-port) "Usage: ~a CONNECTION-SETTINGS-FILE~%" arg0)
(exit #f))))
(apply main (command-line))