command structure

private/git-provider.rkt

@@ -75,6 +75,7 @@
 (define/contract (run-git args)
   (-> (listof (or/c path-string? symbol?))
       (listof (list/c (one-of/c 'stdout 'stderr) string?)))
+  (putenv "GIT_TERMINAL_PROMPT" "0")
   (let-values (((process stdout stdin stderr)
                 (apply subprocess
                        #f