From fdeab64f5d9c65cdcc504ae135b21a8561ffda59 Mon Sep 17 00:00:00 2001 From: Jack Firth Date: Fri, 22 Nov 2024 00:52:59 -0800 Subject: [PATCH] Fix quotes for real this time --- private/git.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/private/git.rkt b/private/git.rkt index 369887e9..52760cf7 100644 --- a/private/git.rkt +++ b/private/git.rkt @@ -68,6 +68,6 @@ (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")))