Commit f7b6c64b authored by Alexandre Delanoë's avatar Alexandre Delanoë

Merge remote-tracking branch 'origin/560-dev-graph-add-count-of-docs' into dev

parents 91fa04a8 c3be8cf0
......@@ -263,7 +263,8 @@ initialPageGQL { corpusId, ngramsTerms, session } =
loadPageGQL :: Record PageGQLParams -> AffRESTError Rows
loadPageGQL { corpusId
, params: { limit, offset, orderBy }
-- NOTE: unused
-- , params: { limit, offset, orderBy }
, ngramsTerms
, session } = do
......
......@@ -239,7 +239,10 @@ docListCpt = here.component "main" cpt where
,
R2.when (not $ eq results Seq.empty) $
H.ul
H.div {}
[
H.h6 {} [ H.text $ show (Seq.length results) <> " related documents"]
, H.ul
{ className: intercalate " "
[ "graph-doc-list"
, "list-group"
......@@ -257,6 +260,7 @@ docListCpt = here.component "main" cpt where
, frontends
}
]
]
---------------------------------------------------------
......
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