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
Pipeline #3824 failed with stage
    in 0 seconds
    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
    -> AffRESTError GT.AsyncTaskWithType
    uploadFrameCalc session id lang selection = do
    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
    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