brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix git parsing.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-16 21:40:51 +02:00
parent 67da5d9be1
commit c0ee924d90
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/util-git.scm
View file

@ -88,8 +88,10 @@
res res
(let* ((line (car lines)) (let* ((line (car lines))
(st (substring line 0 2)) (st (substring line 0 2))
(fname (substring line 4)) (fname (substring line 3))
(status (or (assoc st git-status-types) (maybe-status (assoc st git-status-types))
(status (if maybe-status
(cadr maybe-status)
'unknown))) 'unknown)))
(loop (cdr lines) (loop (cdr lines)
(ldict-set res (ldict-set res