Skip to content

P
purescript-gargantext
Verified Commit 98a7621e authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski
Browse files
Options

[framecalc] fixes to POST request (should be JSON)

parent 06997c7d
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 5 deletions
src/Gargantext/Components/Forest/Tree/Node/Action/Upload.purs
View file @ 98a7621e
...@@ -791,10 +791,7 @@ uploadFrameCalc :: Session ...@@ -791,10 +791,7 @@ uploadFrameCalc :: Session
-> AffRESTError GT.AsyncTaskWithType -> AffRESTError GT.AsyncTaskWithType
uploadFrameCalc session id lang selection = do uploadFrameCalc session id lang selection = do
let p = GR.NodeAPI GT.Node (Just id) $ GT.asyncTaskTypePath GT.UploadFrameCalc let p = GR.NodeAPI GT.Node (Just id) $ GT.asyncTaskTypePath GT.UploadFrameCalc
let body = [
Tuple "_wf_lang" (Just $ show lang)
, Tuple "_wf_selection" (Just $ show selection)
]
eTask <- postWwwUrlencoded session p body eTask <- post session p { _wf_lang: Just lang
, _wf_selection: selection }
pure $ (\task -> GT.AsyncTaskWithType { task, typ: GT.UploadFrameCalc }) <$> eTask pure $ (\task -> GT.AsyncTaskWithType { task, typ: GT.UploadFrameCalc }) <$> eTask
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