chore: remove pTrace from the build

src/Gargantext/Core/Text/Corpus/Parsers/TSV.hs

@@ -28,7 +28,6 @@ import Data.Vector qualified as V
 import Gargantext.Database.Admin.Types.Hyperdata.Document ( HyperdataDocument(..) )
 import Gargantext.Prelude hiding (length, show)
 import Protolude
-import Debug.Pretty.Simple
 
 
 data TsvGargV3 = TsvGargV3
@@ -245,11 +244,10 @@ testCorrectFile bs =
 
 -- use a map to remove \r that sometimes appear at the end of a line
 testAllHeadersPresence :: [Text] -> Either Text [Text]
-testAllHeadersPresence headers = pTraceShow ("CALL: " ++ show headers) $ do
+testAllHeadersPresence headers = do
     let listHeaders = filter (`notElem` (map (T.replace (T.pack "\r") (T.pack ""))headers)) ["Publication Day", "Publication Month", "Publication Year", "Authors", "Title", "Source", "Abstract", "From Country"]
-    let toto =  if null listHeaders then Right headers else Left ((pack " Missing column : ") <> T.intercalate ", " listHeaders)
+    if null listHeaders then Right headers else Left ((pack " Missing column : ") <> T.intercalate ", " listHeaders)
     
-    pTraceShow ("RETURN TOTO"  ++ show toto) $ toto
 
 getHeaders :: [BL.ByteString] -> Delimiter -> Either Text [Text]
 getHeaders bl del = do

src/Gargantext/Database/Query/Table/Node/Document/Insert.hs

@@ -73,7 +73,6 @@ import Gargantext.Database.Schema.Node (NodePoly(..))
 import Gargantext.Defaults qualified as Defaults
 import Gargantext.Prelude hiding (hash, toLower)
 import Gargantext.Prelude.Crypto.Hash (hash)
-import Debug.Pretty.Simple
 {-| To Print result query
 import Data.ByteString.Internal (ByteString)
 import Database.PostgreSQL.Simple (formatQuery)
@@ -102,7 +101,6 @@ insertDb userId parentId items =
 
     sqlValues = Values fields preparedItems
   in
-    pTraceShow ("LOOK", preparedItems) $
     runPGSQuery queryInsert (Only sqlValues)