voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

tree index fixed

This commit is contained in:
Dmitry Zuikov 2024-04-20 17:11:17 +03:00
parent 933fd5154f
commit f40d4fc15e
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hbs2-git/hbs2-git-dashboard/src/HBS2/Git/DashBoard/State.hs
View File

@ -529,6 +529,10 @@ buildCommitTreeIndex dir = do
for_ (Map.toList trees) $ \(t,h0) -> do for_ (Map.toList trees) $ \(t,h0) -> do
case t of
[_] -> insertTree co root h0
_ -> pure ()
let child = tailSafe t let child = tailSafe t
debug $ red "TREE-REL:" <+> pretty t debug $ red "TREE-REL:" <+> pretty t
let parent = Map.lookup child trees let parent = Map.lookup child trees