Improve error message

jackfirth · Nov 22, 2024 · 14ab065 · 14ab065
1 parent 47c2c5c
commit 14ab065
Showing 1 changed file with 3 additions and 1 deletion.
diff --git 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)))