Commit 9fc00811 authored by Grégoire Locqueville's avatar Grégoire Locqueville Committed by Grégoire Locqueville

Rename minimal header

parent 46a78490
......@@ -34,8 +34,9 @@ import Gargantext.Utils.Jobs.Error as Warn
import Protolude
---------------------------------------------------------------
headerTsvGargV3 :: Header
headerTsvGargV3 =
-- | Minimal header for a working TSV import
minimalTsvHeader :: Header
minimalTsvHeader =
header [ "title"
, "source"
, "publication_year"
......@@ -372,7 +373,7 @@ writeDocs2Tsv :: FilePath -> [HyperdataDocument] -> IO ()
writeDocs2Tsv fp hs = BL.writeFile fp $ hyperdataDocument2tsv hs
hyperdataDocument2tsv :: [HyperdataDocument] -> BL.ByteString
hyperdataDocument2tsv hs = encodeByNameWith (tsvEncodeOptions Tab) headerTsvGargV3 (map hyperdataDocument2tsvDoc hs)
hyperdataDocument2tsv hs = encodeByNameWith (tsvEncodeOptions Tab) minimalTsvHeader (map hyperdataDocument2tsvDoc hs)
------------------------------------------------------------------------
-- 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