[Chart] Fix Docs count (Chart still not completed)

src/Gargantext/Core/Viz/Chart.hs

@@ -25,7 +25,7 @@ import Gargantext.Database.Admin.Config
 import Gargantext.Database.Prelude
 import Gargantext.Database.Query.Table.Node
 import Gargantext.Database.Query.Table.Node.Select
-import Gargantext.Database.Query.Table.NodeNode (selectDocsDates)
+import Gargantext.Database.Query.Table.NodeContext (selectDocsDates)
 import Gargantext.Database.Schema.Node
 import Gargantext.Prelude
 import Gargantext.Core.Text.Metrics.Count (occurrencesWith)

src/Gargantext/Database/Query/Table/NodeNode.hs

@@ -21,7 +21,7 @@ commentary with @some markup@.
 module Gargantext.Database.Query.Table.NodeNode
   ( module Gargantext.Database.Schema.NodeNode
   , queryNodeNodeTable
-  , selectDocsDates
+  , selectNodesDates
   , selectDocNodes
   , selectDocs
   , getNodeNode
@@ -131,11 +131,9 @@ selectCountDocs cId = runCountOpaQuery (queryCountDocs cId)
       returnA -< n
 
 
-
-
 -- | TODO use UTCTime fast
-selectDocsDates :: HasDBid NodeType => CorpusId -> Cmd err [Text]
-selectDocsDates cId =  map (head' "selectDocsDates" . splitOn "-")
+selectNodesDates :: HasDBid NodeType => CorpusId -> Cmd err [Text]
+selectNodesDates cId =  map (head' "selectDocsDates" . splitOn "-")
                    <$> catMaybes
                    <$> map (view hd_publication_date)
                    <$> selectDocs cId
@@ -174,7 +172,6 @@ joinOn1 = leftJoin queryNodeTable queryNodeNodeTable cond
     cond :: (NodeRead, NodeNodeRead) -> Column SqlBool
     cond (n, nn) = nn^.nn_node1_id .== n^.node_id
 
-
 ------------------------------------------------------------------------
 selectPublicNodes :: HasDBid NodeType => (Hyperdata a, DefaultFromField SqlJsonb a)
                   => Cmd err [(Node a, Maybe Int)]