Use new git module.

src/Makefile

@@ -241,8 +241,8 @@ 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
+	 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)

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,13 +69,8 @@
 	     (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"
-		      "--"
+	 (let loop ((lines ((git (*members-directory*) #:output)
+			    'log '-p '-- 
 			    (brmember-file-name mr))))
 	   (when (not (null? lines))
 	     (print (car lines))