Commit 644f0001 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski

Merge branch 'dev' into dev-markdown

parents a6c23958 6912cc3e
...@@ -174,7 +174,7 @@ uploadFile session id fileType (UploadFileContents fileContents) = ...@@ -174,7 +174,7 @@ uploadFile session id fileType (UploadFileContents fileContents) =
where where
q = FileUploadQuery { fileType: fileType } q = FileUploadQuery { fileType: fileType }
--p = NodeAPI Corpus (Just id) $ "add/file/async/nobody" <> Q.print (toQuery q) --p = NodeAPI Corpus (Just id) $ "add/file/async/nobody" <> Q.print (toQuery q)
p = NodeAPI Corpus (Just id) $ "add/form/async/nobody" -- <> Q.print (toQuery q) p = NodeAPI Corpus (Just id) $ "add/form/async" -- <> Q.print (toQuery q)
bodyParams = [ bodyParams = [
Tuple "_wf_data" (Just fileContents) Tuple "_wf_data" (Just fileContents)
, Tuple "_wf_filetype" (Just $ show fileType) , Tuple "_wf_filetype" (Just $ show fileType)
......
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