From 71f3586e8791e57b6f328bdc0c22ee05d29d39f4 Mon Sep 17 00:00:00 2001 From: Jacqueline Firth Date: Thu, 21 Nov 2024 18:24:58 -0800 Subject: [PATCH] Fix quote escaping bug in `git-commit!` (#413) --- private/git.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/private/git.rkt b/private/git.rkt index 1b01dec..369887e 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")))