diff --git a/src/Gargantext/Components/FacetsTable.purs b/src/Gargantext/Components/FacetsTable.purs index 353e69b8cf5bf020c19f792e79a3eb3aca438126..2eae44de998474f43766f63d84b577b94f2fa5cb 100644 --- a/src/Gargantext/Components/FacetsTable.purs +++ b/src/Gargantext/Components/FacetsTable.purs @@ -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 diff --git a/src/Gargantext/Components/GraphExplorer/Sidebar/DocList.purs b/src/Gargantext/Components/GraphExplorer/Sidebar/DocList.purs index f019b9a2a495bf908a6211f083e915c5e2161750..365079d3e4aeddab1e2b56b27a68ff14b8bded0d 100644 --- a/src/Gargantext/Components/GraphExplorer/Sidebar/DocList.purs +++ b/src/Gargantext/Components/GraphExplorer/Sidebar/DocList.purs @@ -239,23 +239,27 @@ docListCpt = here.component "main" cpt where , R2.when (not $ eq results Seq.empty) $ - H.ul - { className: intercalate " " - [ "graph-doc-list" - , "list-group" - ] - } $ - Seq.toUnfoldable $ flip Seq.map results \r -> - - item - { documentView: (r :: DocumentsView) - , callback: callback showDoc' - , isSelected: isSelected showDoc' (r :: DocumentsView) - , listId - , corpusId: nodeId - , session - , frontends - } + H.div {} + [ + H.h6 {} [ H.text $ show (Seq.length results) <> " related documents"] + , H.ul + { className: intercalate " " + [ "graph-doc-list" + , "list-group" + ] + } $ + Seq.toUnfoldable $ flip Seq.map results \r -> + + item + { documentView: (r :: DocumentsView) + , callback: callback showDoc' + , isSelected: isSelected showDoc' (r :: DocumentsView) + , listId + , corpusId: nodeId + , session + , frontends + } + ] ]