diff --git a/Makefile.rkt b/Makefile.rkt
index e07ec06..3051744 100644
--- a/Makefile.rkt
+++ b/Makefile.rkt
@@ -15,9 +15,9 @@
         (flush-output)
         (let ((line (read-line)))
           (set! line (string-trim line))
-          (run '(git add -A))
-          (run (append '(git "commit" -m ) (list line)))
-          (run '(git push))
+          (apply git-add (map git-status-entry-path (git 'status)))
+          (git 'commit line)
+          (git 'push)
           )
         )