Commit 67176f46 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski

[list upload] add legacy V3 CSV upload endpoint URL

parent 0c79260d
......@@ -334,6 +334,7 @@ uploadFile session nodeType id fileType { mName, contents } = do
p = case nodeType of
Corpus -> GR.NodeAPI nodeType (Just id) $ GT.asyncTaskTypePath GT.Form
Annuaire -> GR.NodeAPI nodeType (Just id) "annuaire"
NodeList -> GR.NodeAPI nodeType (Just id) $ GT.asyncTaskTypePath GT.ListCSVUpload
_ -> GR.NodeAPI nodeType (Just id) ""
bodyParams = [ Tuple "_wf_data" (Just contents)
......
......@@ -653,6 +653,7 @@ data AsyncTaskType = AddNode
| Form -- this is file upload too
| GraphRecompute
| ListUpload
| ListCSVUpload -- legacy v3 CSV upload for lists
| Query
| UpdateNgramsCharts
| UpdateNode
......@@ -671,6 +672,7 @@ asyncTaskTypePath AddNode = "async/nobody/"
asyncTaskTypePath Form = "add/form/async/"
asyncTaskTypePath GraphRecompute = "async/recompute/"
asyncTaskTypePath ListUpload = "add/form/async/nobody"
asyncTaskTypePath ListCSVUpload = "csv/add/form/async/nobody"
asyncTaskTypePath Query = "query/"
asyncTaskTypePath UpdateNgramsCharts = "ngrams/async/charts/update/"
asyncTaskTypePath UpdateNode = "update/"
......
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