Commit 487f0689 authored by Loïc Chapron's avatar Loïc Chapron

FIX csv -> tsv link back and front

parent 0a86c5fc
Pipeline #6222 failed with stages
......@@ -31,7 +31,7 @@ data DocumentExportEndpoints mode = DocumentExportEndpoints
:> Get '[JSON] (Headers '[Servant.Header "Content-Disposition" Text] DocumentExport)
, exportJSONZipEp :: mode :- "json.zip"
:> Get '[ZIP] (Headers '[Servant.Header "Content-Disposition" Text] DocumentExportZIP)
, exportTSVEp :: mode :- "csv"
, exportTSVEp :: mode :- "tsv"
:> Get '[PlainText] (Headers '[Servant.Header "Content-Disposition" Text] Text)
} deriving Generic
......
......@@ -30,7 +30,7 @@ data ListEndpoints mode = ListEndpoints
:> Get '[JSON, HTML] (Headers '[Header "Content-Disposition" Text] NgramsList)
, listJSONZipEp :: mode :- "json.zip"
:> Get '[GUS.ZIP] (Headers '[Header "Content-Disposition" Text] NgramsListZIP)
, listTSVEp :: mode :- "csv" :> Get '[GUS.TSV] (Headers '[Header "Content-Disposition" Text] NgramsTableMap)
, listTSVEp :: mode :- "tsv" :> Get '[GUS.TSV] (Headers '[Header "Content-Disposition" Text] NgramsTableMap)
} deriving Generic
newtype JSONAPI mode = JSONAPI
......@@ -48,7 +48,7 @@ newtype TSVAPI mode = TSVAPI
{ updateListTSVEp :: mode :- Summary "Update List (legacy v3 TSV)"
:> "lists"
:> Capture "listId" ListId
:> "csv"
:> "tsv"
:> "add"
:> "form"
:> "async"
......
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