Skip to content

H
haskell-gargantext
Commit 93bf6e56 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[FIX] get NodeNode ngrams if node is not deleted.

parent 25167b81
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 1 deletion
src/Gargantext/Database/Metrics/Count.hs
View file @ 93bf6e56
...@@ -90,9 +90,10 @@ getNgramsByNodeNodeIndexed :: NodeId -> NgramsType -> Cmd err [(NodeId, Text)] ...@@ -90,9 +90,10 @@ getNgramsByNodeNodeIndexed :: NodeId -> NgramsType -> Cmd err [(NodeId, Text)]
getNgramsByNodeNodeIndexed nId nt = runOpaQuery (select' nId) getNgramsByNodeNodeIndexed nId nt = runOpaQuery (select' nId)
where where
select' nId' = proc () -> do select' nId' = proc () -> do
(ng,(nng,(_,n))) <- getNgramsByNodeNodeIndexedJoin -< () (ng,(nng,(nn,n))) <- getNgramsByNodeNodeIndexedJoin -< ()
restrict -< _node_id n .== toNullable (pgNodeId nId') restrict -< _node_id n .== toNullable (pgNodeId nId')
restrict -< nng_ngramsType nng .== toNullable (pgNgramsTypeId $ ngramsTypeId nt) restrict -< nng_ngramsType nng .== toNullable (pgNgramsTypeId $ ngramsTypeId nt)
restrict -< nn_delete nn ./= (toNullable . pgBool) True
returnA -< (nng_node_id nng, ngrams_terms ng) returnA -< (nng_node_id nng, ngrams_terms ng)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment