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

FIX csv -> tsv link back and front

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