[FIX] Tree NodeTexts + DB.

src/Gargantext/Database/Metrics.hs

@@ -44,34 +44,6 @@ getMetrics cId maybeListId tabType maybeLimit = do
   pure (ngs, scored myCooc)
 
 
-{- | TODO remove unused function
-getMetrics :: FlowCmdM env err m
-            => CorpusId -> Maybe ListId -> TabType -> Maybe Limit
-            -> m (Map Text (ListType, Maybe Text), [Scored Text])
-getMetrics cId maybeListId tabType maybeLimit = do
-  (ngs, ngs', metrics)    <- getLocalMetrics cId maybeListId tabType maybeLimit
-  
-  (_masterUserId, _masterRootId, masterCorpusId) <- getOrMkRootWithCorpus userMaster "" (Nothing :: Maybe HyperdataCorpus)
-  
-  lId  <- defaultList cId
-  lIds <- selectNodesWithUsername NodeList userMaster
-  
-  metrics' <- getTficfWith cId masterCorpusId (lIds <> [lId]) (ngramsTypeFromTabType tabType) ngs'
-
-  pure (ngs , toScored [metrics, Map.fromList $ map (\(a,b) -> (a, Vec.fromList [fst b])) $ Map.toList metrics'])
-
-getLocalMetrics  :: (FlowCmdM env err m)
-            => CorpusId -> Maybe ListId -> TabType -> Maybe Limit
-          -> m ( Map Text (ListType, Maybe Text)
-               , Map Text (Maybe RootTerm)
-                 , Map Text (Vec.Vector Double)
-                 )
-getLocalMetrics cId maybeListId tabType maybeLimit = do
-  (ngs, ngs', myCooc) <- getNgramsCooc cId maybeListId tabType maybeLimit 
-  pure (ngs, ngs', localMetrics myCooc)
--}
-
-
 getNgramsCooc :: (FlowCmdM env err m)
             => CorpusId -> Maybe ListId -> TabType -> Maybe Limit
             -> m ( Map Text (ListType, Maybe Text)

src/Gargantext/Database/Schema/Node.hs

@@ -440,7 +440,7 @@ arbitraryTexts :: HyperdataTexts
 arbitraryTexts = HyperdataTexts (Just "Preferences")
 
 nodeTextsW :: Maybe Name -> Maybe HyperdataList -> ParentId -> UserId -> NodeWrite
-nodeTextsW maybeName maybeList pId = node NodeList name list (Just pId)
+nodeTextsW maybeName maybeList pId = node NodeTexts name list (Just pId)
   where
     name = maybe "Texts" identity maybeName
     list = maybe arbitraryList identity maybeList

src/Gargantext/Database/Schema/NodeNode.hs

@@ -112,7 +112,7 @@ nodeNodesCategory :: [(CorpusId,DocId,Int)] -> Cmd err [Int]
 nodeNodesCategory inputData = map (\(PGS.Only a) -> a)
                             <$> runPGSQuery catQuery (PGS.Only $ Values fields inputData)
   where
-    fields = map (\t-> QualifiedIdentifier Nothing t) ["int4","int4","category"]
+    fields = map (\t-> QualifiedIdentifier Nothing t) ["int4","int4","int4"]
     catQuery :: PGS.Query
     catQuery = [sql| UPDATE nodes_nodes as old SET
                  category = new.category