[ngrams] remove some printDebug's because they are spamming in the console

src/Gargantext/API/Ngrams/List.hs

@@ -146,7 +146,7 @@ reIndexWith cId lId nt lts = do
                        ) ts
                    -}
 
-  printDebug "orphans" orphans
+  --printDebug "orphans" orphans
 
   -- Get all documents of the corpus
   docs <- selectDocNodes cId
@@ -168,7 +168,7 @@ reIndexWith cId lId nt lts = do
                                  (List.cycle [Map.fromList $ [(nt, Map.singleton (doc ^. context_id) 1 )]])
                         ) docs
 
-  printDebug "ngramsByDoc: " ngramsByDoc
+  --printDebug "ngramsByDoc: " ngramsByDoc
 
   -- Saving the indexation in database
   _ <- mapM (saveDocNgramsWith lId) ngramsByDoc

src/Gargantext/API/Node/Update.hs

@@ -43,7 +43,7 @@ import Gargantext.Database.Query.Table.Node (defaultList, getNode)
 import Gargantext.Database.Query.Table.Node.UpdateOpaleye (updateHyperdata)
 import Gargantext.Database.Schema.Ngrams (NgramsType(NgramsTerms))
 import Gargantext.Database.Schema.Node (node_parent_id)
-import Gargantext.Prelude (Bool(..), Ord, Eq, (<$>), ($), liftBase, (.), printDebug, pure, show, cs, (<>), panic, (<*>))
+import Gargantext.Prelude (Bool(..), Ord, Eq, (<$>), ($), liftBase, (.), {-printDebug,-} pure, show, cs, (<>), panic, (<*>))
 import Gargantext.Utils.Jobs (serveJobsAPI)
 import Prelude (Enum, Bounded, minBound, maxBound)
 import Servant
@@ -97,7 +97,7 @@ api uId nId =
   serveJobsAPI UpdateNodeJob $ \p log'' ->
       let
         log' x = do
-          printDebug "updateNode" x
+          --printDebug "updateNode" x
           liftBase $ log'' x
       in updateNode uId nId p (liftBase . log')