Merge remote-tracking branch 'origin/issue-380' into dev

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

@@ -591,9 +591,9 @@ parseTsv' bs = (V.toList . V.map tsv2doc . snd) <$> readTsvLazyBS Comma bs
 parseTsv' :: BL.ByteString -> Either Text [HyperdataDocument]
 parseTsv' bs = do
   let
-    result = case readTsvLazyBS Comma bs of
-      Left  _err -> readTsvLazyBS Tab bs
-      Right res -> Right res
+    result = case (testCorrectFile bs) of
+      Left _err -> Left _err
+      Right del -> readTsvLazyBS del bs
   V.toList . V.map tsv2doc . snd <$> result
 
 parseTsvC :: BL.ByteString
@@ -601,9 +601,9 @@ parseTsvC :: BL.ByteString
 parseTsvC bs =
   (\(_h, rs) -> (fromIntegral $ V.length rs, yieldMany rs .| mapC tsv2doc)) <$> eResult
   where
-    eResult = case readTsvLazyBS Comma bs of
-      Left  _err -> readTsvLazyBS Tab bs
-      Right res -> Right res
+    eResult = case (testCorrectFile bs) of
+      Left _err -> Left _err
+      Right del -> readTsvLazyBS del bs
 
 ------------------------------------------------------------------------
 -- Tsv v3 weighted for phylo