Skip to content

haskell-gargantext
haskell-gargantext
Commit 7ce9ba68 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

rebase

parent 5674c9e6
Hide whitespace changes
Inline Side-by-side
Showing with 4 additions and 6 deletions
src/Gargantext/Core/Text/Corpus/Parsers.hs
View file @ 7ce9ba68
...@@ -98,13 +98,11 @@ parseFormat WOS bs = do ...@@ -98,13 +98,11 @@ parseFormat WOS bs = do
$ [runParser' WOS bs] $ [runParser' WOS bs]
pure $ Right docs pure $ Right docs
parseFormat ZIP bs = do parseFormat ZIP bs = do
path <- emptySystemTempFile "parsed.zip" path <- emptySystemTempFile "parsed-zip"
DB.writeFile path bs DB.writeFile path bs
withArchive path $ do parsedZip <- withArchive path $ do
files <- DM.keys <$> getEntries DM.keys <$> getEntries
filesContents <- mapM getEntry files pure $ Left $ "Not implemented for ZIP, parsedZip" <> show parsedZip
ddocs <- liftIO $ mapM (parseFormat CsvGargV3) filesContents
pure $ concat <$> sequence ddocs
parseFormat _ _ = undefined parseFormat _ _ = undefined
-- | Parse file into documents -- | Parse file into documents
......
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