Fix quote escaping bug in git-commit! (#413)

jackfirth · Nov 22, 2024 · 71f3586 · 71f3586
1 parent e0f59fa
commit 71f3586
Showing 1 changed file with 3 additions and 2 deletions.
diff --git 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")))