From a1f7378b8446b3a020005be6c449cf92f8da173e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Sun, 16 Apr 2023 19:21:25 +0200
Subject: [PATCH] Use new git module.

---
 src/Makefile       |  8 ++++----
 src/web-static.scm | 13 ++++---------
 2 files changed, 8 insertions(+), 13 deletions(-)

diff --git a/src/Makefile b/src/Makefile
index af82812..9aa85ab 100644
--- a/src/Makefile
+++ b/src/Makefile
@@ -239,10 +239,10 @@ MEMBERS-PAYMENTS-SOURCES=members-payments.scm bank-account.import.scm	\
 members-payments.o: members-payments.import.scm
 members-payments.import.scm: $(MEMBERS-PAYMENTS-SOURCES)
 
-WEB-STATIC-SOURCES=web-static.scm brmember.import.scm	\
-	 configuration.import.scm members-payments.import.scm	\
-	 mbase.import.scm util-io.import.scm		\
-	 util-list.import.scm progress.import.scm
+WEB-STATIC-SOURCES=web-static.scm brmember.import.scm			\
+	 configuration.import.scm members-payments.import.scm		\
+	 mbase.import.scm util-git.import.scm util-list.import.scm	\
+	 progress.import.scm
 
 web-static.o: web-static.import.scm
 web-static.import.scm: $(WEB-STATIC-SOURCES)
diff --git a/src/web-static.scm b/src/web-static.scm
index fbaceb6..4f3b914 100644
--- a/src/web-static.scm
+++ b/src/web-static.scm
@@ -45,7 +45,7 @@
 	 configuration
 	 members-payments
 	 mbase
-	 util-io
+	 util-git
 	 progress)
 
  ;; Generate all the files in specified (default current) directory.
@@ -69,14 +69,9 @@
 	     (loop (cdr lines))))))
      (with-output-to-file (make-pathname dir (sprintf "~A.log" nick))
        (lambda ()
-	 (let loop ((lines
-		     (get-process-output-lines
-		      "git"
-		      "-C" (*members-directory*)
-		      "log"
-		      "-p"
-		      "--"
-		      (brmember-file-name mr))))
+	 (let loop ((lines ((git (*members-directory*) #:output)
+			    'log '-p '-- 
+			    (brmember-file-name mr))))
 	   (when (not (null? lines))
 	     (print (car lines))
 	     (loop (cdr lines))))))