Skip to content

haskell-gargantext
haskell-gargantext
Commit 5f74a8a5 authored by Loïc Chapron's avatar Loïc Chapron
1 Browse files
Options

fix tsv error import

parent 9144bad9
Pipeline #6554 passed with stages
          in 59 minutes and 1 second
          Hide whitespace changes
          Inline Side-by-side
          Showing with 6 additions and 6 deletions
          src/Gargantext/Core/Text/Corpus/Parsers/TSV.hs
          View file @ 5f74a8a5
          ...@@ -588,9 +588,9 @@ parseTsv' bs = (V.toList . V.map tsv2doc . snd) <$> readTsvLazyBS Comma bs ...@@ -588,9 +588,9 @@ parseTsv' bs = (V.toList . V.map tsv2doc . snd) <$> readTsvLazyBS Comma bs
          parseTsv' :: BL.ByteString -> Either Text [HyperdataDocument] parseTsv' :: BL.ByteString -> Either Text [HyperdataDocument]
          parseTsv' bs = do parseTsv' bs = do
          let let
          result = case readTsvLazyBS Comma bs of result = case (testCorrectFile bs) of
          Left _err -> readTsvLazyBS Tab bs Left _err -> Left _err
          Right res -> Right res Right del -> readTsvLazyBS del bs
          V.toList . V.map tsv2doc . snd <$> result V.toList . V.map tsv2doc . snd <$> result
          parseTsvC :: BL.ByteString parseTsvC :: BL.ByteString
          ...@@ -598,9 +598,9 @@ parseTsvC :: BL.ByteString ...@@ -598,9 +598,9 @@ parseTsvC :: BL.ByteString
          parseTsvC bs = parseTsvC bs =
          (\(_h, rs) -> (fromIntegral $ V.length rs, yieldMany rs .| mapC tsv2doc)) <$> eResult (\(_h, rs) -> (fromIntegral $ V.length rs, yieldMany rs .| mapC tsv2doc)) <$> eResult
          where where
          eResult = case readTsvLazyBS Comma bs of eResult = case (testCorrectFile bs) of
          Left _err -> readTsvLazyBS Tab bs Left _err -> Left _err
          Right res -> Right res Right del -> readTsvLazyBS del bs
          ------------------------------------------------------------------------ ------------------------------------------------------------------------
          -- Tsv v3 weighted for phylo -- Tsv v3 weighted for phylo
          ......
          Markdown is supported
          0% or
          You are about to add 0 people to the discussion. Proceed with caution.
          Finish editing this message first!
          Please register or to comment