From 9aaea70819f4089e27c872e5bff66018d38722cb Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Wed, 24 Apr 2024 06:31:45 +0300 Subject: [PATCH] wip --- .../hbs2-git-dashboard/src/HBS2/Git/DashBoard/State.hs | 7 +++++++ 1 file changed, 7 insertions(+) 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 3310fe81..0d4f3cc3 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 @@ -464,6 +464,13 @@ selectRefLogs :: (DashBoardPerks m, MonadReader DashBoardEnv m) => m [RepoRefLog selectRefLogs = withState do select_ [qc|select distinct(reflog) from repolistview|] <&> fmap fromOnly +-- TODO: too-much-data-in-tree-index +-- для навигации по дереву, если нам не нужно +-- выходить на верхний уровень -- нам не нужно +-- знать коммит для каждого дерева. таким образом, +-- если убрать коммит -- вариативность будет на порядок +-- меньше, но это повлечёт последствия для навигации. +-- сейчас уже 200K записей на 4K коммитов, нехорошо createRepoTreeIndexTable :: (DashBoardPerks m) => DBPipeM m () createRepoTreeIndexTable = do ddl [qc|