David, let me know if that's okay with you before I implement this for
the other commands.

Thu Nov 17 18:55:16 CET 2005  Juliusz Chroboczek <[EMAIL PROTECTED]>
  * Add --no-working-dir and --working-dir flags.

Thu Nov 17 18:55:51 CET 2005  Juliusz Chroboczek <[EMAIL PROTECTED]>
  * Implement pull --no-working-dir.

New patches:

[Add --no-working-dir and --working-dir flags.
Juliusz Chroboczek <[EMAIL PROTECTED]>**20051117175516] {
hunk ./DarcsArguments.lhs 56
-                        fancy_move_add, pristine_tree,
+                        fancy_move_add, pristine_tree, working_dir,
hunk ./DarcsArguments.lhs 181
-  logfile, rmlogfile, leave_test_dir, from_opt, set_default, pristine_tree
+  logfile, rmlogfile, leave_test_dir, from_opt, set_default, pristine_tree,
+  working_dir
hunk ./DarcsArguments.lhs 440
+working_dir =
+    DarcsMultipleChoiceOption
+    [DarcsNoArgOption [] ["working-dir"] WorkingDir
+     "Apply changes to the working directory [DEFAULT]",
+     DarcsNoArgOption [] ["no-working-dir"] NoWorkingDir
+     "Don't touch the working directory"]
+
hunk ./DarcsFlags.lhs 62
-               | PristinePlain | PristineNone
+               | PristinePlain | PristineNone | NoWorkingDir | WorkingDir
}

[Implement pull --no-working-dir.
Juliusz Chroboczek <[EMAIL PROTECTED]>**20051117175551] {
hunk ./Pull.lhs 22
-import Monad ( when, liftM )
+import Monad ( when, unless, liftM )
hunk ./Pull.lhs 27
-import DarcsArguments ( DarcsFlag( AnyOrder, Test, Verbose, Quiet ),
+import DarcsArguments ( DarcsFlag( AnyOrder, Test, Verbose, Quiet,
+                                   NoWorkingDir ),
hunk ./Pull.lhs 36
-                        set_scripts_executable,
+                        set_scripts_executable, working_dir
hunk ./Pull.lhs 104
-                                             set_scripts_executable]}
+                                             set_scripts_executable,
+                                             working_dir ]}
hunk ./Pull.lhs 180
-          revertable $ apply opts pw_resolved `catch` \e ->
-              fail ("Error applying patch to working dir:\n" ++ show e)
+          unless (NoWorkingDir `elem` opts) $
+              revertable $ apply opts pw_resolved `catch` \e ->
+                  fail ("Error applying patch to working dir:\n" ++ show e)
}

Context:

[English and markup fixes.
Dave Love <[EMAIL PROTECTED]>**20051114224845] 
[update web page to reflect 1.0.4 as latest stable source.
David Roundy <[EMAIL PROTECTED]>**20051113210144] 
[TAG 1.0.4
David Roundy <[EMAIL PROTECTED]>**20051113134431] 
Patch bundle hash:
9af58147d9281c5d4ee0ee8f4d8cf46e172b3587
_______________________________________________
darcs-devel mailing list
[email protected]
http://www.abridgegame.org/cgi-bin/mailman/listinfo/darcs-devel

Reply via email to