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

hbs2-git refval_actual bug fixed

This commit is contained in:
Dmitry Zuikov 2023-07-27 12:16:42 +03:00
parent 0c645d5fbf
commit 0c9cfdbde3
1 changed files with 13 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
hbs2-git/lib/HBS2Git/State.hs
View File

@ -175,22 +175,6 @@ stateInit = do
DROP VIEW IF EXISTS v_refval_actual;
|]
liftIO $ execute_ conn [qc|
CREATE view v_refval_actual AS
WITH a1 as (
SELECT
l.refname
, l.refval
, vd.depth
FROM logrefval l
JOIN v_log_depth vd on vd.loghash = l.loghash )
SELECT a1.refname, a1.refval, MAX(a1.depth) from a1
GROUP by a1.refname
HAVING a1.refval <> '0000000000000000000000000000000000000000' ;
|]
liftIO $ execute_ conn [qc|
CREATE TABLE IF NOT EXISTS logcommitdepth
( kommit text not null
@ -204,14 +188,19 @@ stateInit = do
|]
liftIO $ execute_ conn [qc|
CREATE VIEW v_log_depth AS
SELECT
lo.loghash,
MAX(ld.depth) AS depth
FROM logobject lo
JOIN logcommitdepth ld ON lo.githash = ld.kommit
WHERE lo.type in ( 'commit', 'context' )
GROUP BY lo.loghash;
DROP VIEW IF EXISTS v_refval_actual;
|]
liftIO $ execute_ conn [qc|
CREATE VIEW v_refval_actual AS
SELECT
rv.refname
, rv.refval
, MAX(d.depth) as depth
FROM logrefval rv
JOIN logcommitdepth d ON rv.refval = d.kommit
WHERE rv.refval <> '0000000000000000000000000000000000000000'
GROUP BY rv.refname;
|]