From c98d5d43e4e88533b0f97a3e64027f2cb5767864 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 11 Mar 2016 19:55:27 -0400 Subject: devblog --- doc/devblog/day_372__adjusted_branches_improved.mdwn | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 doc/devblog/day_372__adjusted_branches_improved.mdwn (limited to 'doc') 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) +"""]] -- cgit v1.2.3