Implemended config-diff

diff --git a/git-repl.cl b/git-repl.cl
index c46cfbf..c67a497 100644 (file)
--- a/git-repl.cl
+++ b/git-repl.cl
@@ -163,9 +163,9 @@
       (write-line "Skipping files...")
       (skip-modified))))
 
-(defun-public config-diff ()
+(defun-public config-diff (file-path)
   "Saves the current configuration to the specified file"
-  (config-do (mapcar #'write-line (git "diff"))))
+  (config-do (str:to-file file-path (run-git '("diff") :list-output nil))))
 
 (defun-public delete-branch (branch-name)
   "Deletes the given local branch name"