sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-29 15:44:51 +09:00
Code Issues Activity

SQL: Don't list starting nodes in graph reachable set

Browse source
This commit is contained in:
fr33domlover 2016-08-02 11:58:49 +00:00
parent 521871c476
commit 51c99a1dfe
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Database/Persist/Sql/Graph/Reachable.hs
View file

@ -138,9 +138,10 @@ xreachable' follow filter initials mlen proxy = do
, " ) SELECT DISTINCT ", temp ^* tid , " ) SELECT DISTINCT ", temp ^* tid
, " FROM ", dbname temp , " FROM ", dbname temp
, " WHERE NOT ", temp ^* tcycle , " WHERE NOT ", temp ^* tcycle
, " AND array_length(", temp ^* tpath, ", 1) "
, case mlen of , case mlen of
Nothing -> "" Nothing -> ">= 2"
Just _ -> " AND array_length(" <> temp ^* tpath <> ", 1) <= ?" Just _ -> "BETWEEN 2 AND ?"
] ]
toP = fmap toPersistValue toP = fmap toPersistValue
toPL = map toPersistValue toPL = map toPersistValue