wip

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

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