[graph] add count of documents to sidebar

parent 5f83b235
...@@ -263,7 +263,8 @@ initialPageGQL { corpusId, ngramsTerms, session } = ...@@ -263,7 +263,8 @@ initialPageGQL { corpusId, ngramsTerms, session } =
loadPageGQL :: Record PageGQLParams -> AffRESTError Rows loadPageGQL :: Record PageGQLParams -> AffRESTError Rows
loadPageGQL { corpusId loadPageGQL { corpusId
, params: { limit, offset, orderBy } -- NOTE: unused
-- , params: { limit, offset, orderBy }
, ngramsTerms , ngramsTerms
, session } = do , session } = do
......
...@@ -239,7 +239,10 @@ docListCpt = here.component "main" cpt where ...@@ -239,7 +239,10 @@ docListCpt = here.component "main" cpt where
, ,
R2.when (not $ eq results Seq.empty) $ 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 " " { className: intercalate " "
[ "graph-doc-list" [ "graph-doc-list"
, "list-group" , "list-group"
...@@ -257,6 +260,7 @@ docListCpt = here.component "main" cpt where ...@@ -257,6 +260,7 @@ docListCpt = here.component "main" cpt where
, frontends , 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