From 3ee7f2645360d6291f7a8dfe66af293b3f8d6912 Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Thu, 8 Feb 2024 22:13:45 +0300
Subject: Use correct format string literal when printing out sql results.

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
---
 examples/dataset-metadata-git.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'examples')

diff --git a/examples/dataset-metadata-git.scm b/examples/dataset-metadata-git.scm
index 6be6d28..1730f95 100755
--- a/examples/dataset-metadata-git.scm
+++ b/examples/dataset-metadata-git.scm
@@ -16,7 +16,7 @@
         (mkdir dir-name))
       (with-output-to-file file
         (lambda ()
-          (format #t result))))))
+          (format #t "~a" result))))))
 
 (define (infopages/sql->rtf result)
   (let* ((get (cut assoc-ref result <>))
-- 
cgit v1.2.3