From 540f0a540114be62a7049a125b0403c7d128ad90 Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Thu, 24 Aug 2023 12:48:22 +0300
Subject: Remove match-case for RDF-FILE

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
---
 load-rdf.scm | 4 ++--
 1 file 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))
-- 
cgit v1.2.3