diff options
| -rw-r--r-- | doc/devblog/day_372__adjusted_branches_improved.mdwn | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/doc/devblog/day_372__adjusted_branches_improved.mdwn b/doc/devblog/day_372__adjusted_branches_improved.mdwn new file mode 100644 index 000000000..ce91693f4 --- /dev/null +++ b/doc/devblog/day_372__adjusted_branches_improved.mdwn @@ -0,0 +1,18 @@ +After a real brain-bender of a day, I have commit propigation from the +adjusted branch back to the original branch working, without needing to +reverse adjust the whole tree. This is faster, but the really nice thing +is that it makes individual adjustments simpler to write. + +In fact, it's so simple that I took 10 minutes just now to implement a second +adjustment! + +[[!format haskell """ +adjustTreeItem HideMissingAdjustment h ti@(TreeItem _ _ s) = do + mk <- catKey s + case mk of + Just k -> ifM (inAnnex k) + ( return (Just ti) + , return Nothing + ) + Nothing -> return (Just ti) +"""]] |