From c0ee924d90575fbd8d849406c16d4290c9e32687 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 21:40:51 +0200
Subject: [PATCH] Fix git parsing.

---
 src/util-git.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/util-git.scm b/src/util-git.scm
index 795193a..5e9d291 100644
--- a/src/util-git.scm
+++ b/src/util-git.scm
@@ -88,8 +88,10 @@
 	   res
 	   (let* ((line (car lines))
 		  (st (substring line 0 2))
-		  (fname (substring line 4))
-		  (status (or (assoc st git-status-types)
+		  (fname (substring line 3))
+		  (maybe-status (assoc st git-status-types))
+		  (status (if maybe-status
+			      (cadr maybe-status)
 			      'unknown)))
 	     (loop (cdr lines)
 		   (ldict-set res