diff --git a/hbs2-git/hbs2-git-dashboard/src/HBS2/Git/DashBoard/State.hs b/hbs2-git/hbs2-git-dashboard/src/HBS2/Git/DashBoard/State.hs index 2853cf84..a6d37924 100644 --- a/hbs2-git/hbs2-git-dashboard/src/HBS2/Git/DashBoard/State.hs +++ b/hbs2-git/hbs2-git-dashboard/src/HBS2/Git/DashBoard/State.hs @@ -529,6 +529,10 @@ buildCommitTreeIndex dir = do for_ (Map.toList trees) $ \(t,h0) -> do + case t of + [_] -> insertTree co root h0 + _ -> pure () + let child = tailSafe t debug $ red "TREE-REL:" <+> pretty t let parent = Map.lookup child trees