[prev in list] [next in list] [prev in thread] [next in thread] 

List:       darcs-devel
Subject:    [darcs-devel] [patch1780] minimize context inside unrevert patch at the head of ...
From:       Ben Franksen <bugs () darcs ! net>
Date:       2018-12-04 18:17:17
Message-ID: 1MVMNF-1gtEOq2Wf9-00SMYH () mrelayeu ! kundenserver ! de
[Download RAW message or body]

New submission from Ben Franksen <ben.franksen@online.de>:

1 patch for repository http://darcs.net/screened:

patch ad2a2b48618ccfdf78e41c6f8bbd1b754b9a6832
Author: Ben Franksen <ben.franksen@online.de>
Date:   Fri Nov 16 09:55:05 CET 2018
  * minimize context inside unrevert patch at the head of the unrevert bundle
  
  This does not minimize the context consisting of named patches in the bundle
  itself. Instead, only the prim patches that go inside the anonymous patch at
  the head of the unrevert bundle are affected.

----------
files: minimize-context-inside-unrevert-patch-at-the-head-of-the-unrevert-bundle.dpatch, \
                patch-preview.txt, unnamed
messages: 20579
nosy: bf
status: needs-screening
title: minimize context inside unrevert patch at the head of ...

__________________________________
Darcs bug tracker <bugs@darcs.net>
<http://bugs.darcs.net/patch1780>
__________________________________


["patch-preview.txt" (text/x-darcs-patch)]


[minimize context inside unrevert patch at the head of the unrevert bundle
Ben Franksen <ben.franksen@online.de>**20181116085505
 Ignore-this: a910c970ca9cf54ba7bbd9c8b639268521630e1d09c9949750b4d647fe27a854ebabe2919c144879
 
 This does not minimize the context consisting of named patches in the bundle
 itself. Instead, only the prim patches that go inside the anonymous patch at
 the head of the unrevert bundle are affected.
] hunk ./src/Darcs/UI/Commands/Revert.hs 47
- -import Darcs.Patch ( invert, effectOnPaths, commute )
+import Darcs.Patch ( invert, effectOnPaths, commuteFL )
+import Darcs.Patch.Permutations ( genCommuteWhatWeCanRL )
hunk ./src/Darcs/UI/Commands/Revert.hs 50
- -import Darcs.Patch.Witnesses.Ordered ( FL(..), (:>)(..), nullFL, (+>+) )
+import Darcs.Patch.Witnesses.Ordered
+    ( FL(..)
+    , (:>)(..)
+    , nullFL
+    , (+>>+)
+    , reverseFL
+    )
hunk ./src/Darcs/UI/Commands/Revert.hs 144
- -                 case commute (norevert:>p) of
- -                   Just (p':>_) -> writeUnrevert repository p' recorded NilFL
- -                   Nothing -> writeUnrevert repository (norevert+>+p) recorded NilFL
+                 case genCommuteWhatWeCanRL commuteFL (reverseFL norevert :> p) of
+                   deps :> p' :> _ ->
+                      writeUnrevert repository (deps+>>+p') recorded NilFL


["minimize-context-inside-unrevert-patch-at-the-head-of-the-unrevert-bundle.dpatch" (application/x-darcs-patch)]
["unnamed" (text/plain)]

.





_______________________________________________
darcs-devel mailing list
darcs-devel@osuosl.org
https://lists.osuosl.org/mailman/listinfo/darcs-devel


[prev in list] [next in list] [prev in thread] [next in thread]