hans/git-cli
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

exit code checking added

Browse Source
This commit is contained in:
Hans Dijkema
2026-08-12 16:50:57 +02:00
parent b832ab8184
commit e4e37d2214
4 changed files with 36 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files
main.rkt
+23 -20
View File
@@ -57,26 +57,29 @@
(λ (args) (if (has-git-arg? args '-s)
args
(cons '-s args)))
(λ (cmd result output out)
(if result
(map (λ (line)
(let* ((state (string->symbol (string-trim (substring line 0 2))))
(file (string-trim (substring line 3))))
(cond
([eq? state '??] (list 'new file))
([eq? state 'M] (list 'modified file))
([eq? state 'A] (list 'added file))
([eq? state 'D] (list 'deleted file))
([eq? state 'AM] (list 'modified file))
([eq? state 'AD] (list 'deleted file))
([eq? state 'MM] (list 'modified file))
([eq? state 'MD] (list 'deleted file))
(else
(git-error 'status "Unexpected state" state))
)
))
out)
(git-error 'status "Error" output)))
(λ (cmd exit-code result output out)
(if (= exit-code 0)
(if result
(map (λ (line)
(let* ((state (string->symbol (string-trim (substring line 0 2))))
(file (string-trim (substring line 3))))
(cond
([eq? state '??] (list 'new file))
([eq? state 'M] (list 'modified file))
([eq? state 'A] (list 'added file))
([eq? state 'D] (list 'deleted file))
([eq? state 'AM] (list 'modified file))
([eq? state 'AD] (list 'deleted file))
([eq? state 'MM] (list 'modified file))
([eq? state 'MD] (list 'deleted file))
(else
(git-error 'status "Unexpected state" state))
)
))
out)
(git-error 'status "Error" output))
(git-error 'status "Exitcode <> 0" (cons (format "~a\n" exit-code) output))
))
)