Use new git module.

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))))))