From bd6ef5307e24d0dc485fb318c4f6241640d39199 Mon Sep 17 00:00:00 2001 From: Jack Firth Date: Thu, 21 Nov 2024 18:18:29 -0800 Subject: [PATCH] Fix quote escaping bug in `git-commit!` --- private/git.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/private/git.rkt b/private/git.rkt index 1b01dec8..369887e9 100644 --- a/private/git.rkt +++ b/private/git.rkt @@ -68,5 +68,6 @@ (define (git-commit! message) - (unless (system (format "git commit --all --quiet --message='~a'" message)) - (raise-arguments-error 'git-commit-modified-files "committing files to Git failed"))) + (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")))