Commit d48f2def authored by Alexandre Delanoë's avatar Alexandre Delanoë
parents 829ed4ed 9de1e1b5
...@@ -317,7 +317,7 @@ uploadFile :: Session ...@@ -317,7 +317,7 @@ uploadFile :: Session
-> FileType -> FileType
-> {contents :: String, mName :: Maybe String} -> {contents :: String, mName :: Maybe String}
-> Aff GT.AsyncTaskWithType -> Aff GT.AsyncTaskWithType
uploadFile session NodeList id fileType { mName, contents } = do uploadFile session NodeList id JSON { mName, contents } = do
let url = GR.NodeAPI NodeList (Just id) $ GT.asyncTaskTypePath GT.ListUpload let url = GR.NodeAPI NodeList (Just id) $ GT.asyncTaskTypePath GT.ListUpload
-- { input: { data: ..., filetype: "JSON", name: "..." } } -- { input: { data: ..., filetype: "JSON", name: "..." } }
let body = { input: { data: contents let body = { input: { data: contents
......
...@@ -670,7 +670,7 @@ asyncTaskTypePath :: AsyncTaskType -> String ...@@ -670,7 +670,7 @@ asyncTaskTypePath :: AsyncTaskType -> String
asyncTaskTypePath AddNode = "async/nobody/" asyncTaskTypePath AddNode = "async/nobody/"
asyncTaskTypePath Form = "add/form/async/" asyncTaskTypePath Form = "add/form/async/"
asyncTaskTypePath GraphRecompute = "async/recompute/" asyncTaskTypePath GraphRecompute = "async/recompute/"
asyncTaskTypePath ListUpload = "add/form/async/nobody" asyncTaskTypePath ListUpload = "add/form/async"
asyncTaskTypePath Query = "query/" asyncTaskTypePath Query = "query/"
asyncTaskTypePath UpdateNgramsCharts = "ngrams/async/charts/update/" asyncTaskTypePath UpdateNgramsCharts = "ngrams/async/charts/update/"
asyncTaskTypePath UpdateNode = "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