[Cl-darcs-cvs] r38 - cl-darcs/trunk

[mhenoch at common-lisp.net]

Author: mhenoch
Date: Thu Aug 31 20:22:13 2006
New Revision: 38

Modified:
   cl-darcs/trunk/pull.lisp
Log:
Use write-patch-to-repo when pulling


Modified: cl-darcs/trunk/pull.lisp
==============================================================================
--- cl-darcs/trunk/pull.lisp	(original)
+++ cl-darcs/trunk/pull.lisp	Thu Aug 31 20:22:13 2006
@@ -34,7 +34,7 @@
       (dolist (p only-theirs)
 	(format t "~& - ~A" p))
       ;; XXX: This is where we pick which of their patches we want to
-      ;; pull.  And copy them to our repo.
+      ;; pull.
       (let* ((their-patches
 	      (mapcar (lambda (pi)
 			(read-patch-from-repo theirrepo pi))
@@ -54,5 +54,6 @@
 	  ;; If this is not a named patch, our assumptions are
 	  ;; challenged.
 	  (append-inventory ourrepo (named-patch-patchinfo p))
+	  (write-patch-to-repo p ourrepo)
 	  (format t ".")))))
   (format t "~&All done"))