Skip to content

haskell-gargantext
haskell-gargantext
Commit 9fc00811 authored by Grégoire Locqueville's avatar Grégoire Locqueville Committed by Grégoire Locqueville
Browse files
Options

Rename minimal header

parent 46a78490
Hide whitespace changes
Inline Side-by-side
Showing with 4 additions and 3 deletions
src/Gargantext/Core/Text/Corpus/Parsers/TSV.hs
View file @ 9fc00811
...@@ -34,8 +34,9 @@ import Gargantext.Utils.Jobs.Error as Warn ...@@ -34,8 +34,9 @@ import Gargantext.Utils.Jobs.Error as Warn
import Protolude import Protolude
--------------------------------------------------------------- ---------------------------------------------------------------
headerTsvGargV3 :: Header -- | Minimal header for a working TSV import
headerTsvGargV3 = minimalTsvHeader :: Header
minimalTsvHeader =
header [ "title" header [ "title"
, "source" , "source"
, "publication_year" , "publication_year"
...@@ -372,7 +373,7 @@ writeDocs2Tsv :: FilePath -> [HyperdataDocument] -> IO () ...@@ -372,7 +373,7 @@ writeDocs2Tsv :: FilePath -> [HyperdataDocument] -> IO ()
writeDocs2Tsv fp hs = BL.writeFile fp $ hyperdataDocument2tsv hs writeDocs2Tsv fp hs = BL.writeFile fp $ hyperdataDocument2tsv hs
hyperdataDocument2tsv :: [HyperdataDocument] -> BL.ByteString hyperdataDocument2tsv :: [HyperdataDocument] -> BL.ByteString
hyperdataDocument2tsv hs = encodeByNameWith (tsvEncodeOptions Tab) headerTsvGargV3 (map hyperdataDocument2tsvDoc hs) hyperdataDocument2tsv hs = encodeByNameWith (tsvEncodeOptions Tab) minimalTsvHeader (map hyperdataDocument2tsvDoc hs)
------------------------------------------------------------------------ ------------------------------------------------------------------------
-- Hal Format -- Hal Format
......
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