From c0ee924d90575fbd8d849406c16d4290c9e32687 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= 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