From 14ab065bd2de079c01eba798cb2b2ae9357adfa6 Mon Sep 17 00:00:00 2001 From: Jack Firth Date: Fri, 22 Nov 2024 03:42:16 -0800 Subject: [PATCH 1/2] Improve error message --- private/git.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/private/git.rkt b/private/git.rkt index 52760cf7..55a7328f 100644 --- a/private/git.rkt +++ b/private/git.rkt @@ -70,4 +70,6 @@ (define (git-commit! message) (define escaped-message (string-replace message "\"" "\\\"")) (unless (system (format "git commit --all --quiet --message=\"~a\"" escaped-message)) - (raise-arguments-error 'git-commit! "committing files to Git failed"))) + (raise-arguments-error 'git-commit! + "committing files to Git failed" + "commit message" message))) From 92f80f35c598beba0ca7c58840802bf4ba6b2de4 Mon Sep 17 00:00:00 2001 From: Jack Firth Date: Fri, 22 Nov 2024 03:46:06 -0800 Subject: [PATCH 2/2] Fix quotes again, hopefully --- private/git.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/private/git.rkt b/private/git.rkt index 55a7328f..e241013e 100644 --- a/private/git.rkt +++ b/private/git.rkt @@ -68,8 +68,8 @@ (define (git-commit! message) - (define escaped-message (string-replace message "\"" "\\\"")) - (unless (system (format "git commit --all --quiet --message=\"~a\"" escaped-message)) + (define escaped-message (string-replace message "'" "'\"'\"'")) + (unless (system (format "git commit --all --quiet --message='~a'" escaped-message)) (raise-arguments-error 'git-commit! "committing files to Git failed" "commit message" message)))