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

wip

This commit is contained in:
Dmitry Zuikov 2024-04-24 06:40:02 +03:00
parent 9aaea70819
commit e2f384588a
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -470,7 +470,14 @@ selectRefLogs = withState do
-- знать коммит для каждого дерева. таким образом, -- знать коммит для каждого дерева. таким образом,
-- если убрать коммит -- вариативность будет на порядок -- если убрать коммит -- вариативность будет на порядок
-- меньше, но это повлечёт последствия для навигации. -- меньше, но это повлечёт последствия для навигации.
-- сейчас уже 200K записей на 4K коммитов, нехорошо -- сейчас уже 200K записей на 4K коммитов, нехорошо.
-- ОЧЕНЬ НЕХОРОШО. Однако, если удалить kommit из
-- таблицы tree, там начинает выполняться большой рекурсивный
-- запрос. С колонкой kommit мы сокращаем там выборку.
-- В принципе, можно туда ввести ключ lww, тогда выборка
-- будет ограничиваться только всеми деревьями проекта.
-- С этим полем в таблице будет гораздо меньше ключей, чем
-- с каждым коммитом.
createRepoTreeIndexTable :: (DashBoardPerks m) => DBPipeM m () createRepoTreeIndexTable :: (DashBoardPerks m) => DBPipeM m ()
createRepoTreeIndexTable = do createRepoTreeIndexTable = do
ddl [qc| ddl [qc|