From 14ab065bd2de079c01eba798cb2b2ae9357adfa6 Mon Sep 17 00:00:00 2001
From: Jack Firth <jackhfirth@gmail.com>
Date: Fri, 22 Nov 2024 03:42:16 -0800
Subject: [PATCH] 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 52760cf..55a7328 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)))