Commit 6cfbebe7 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski

[upload] v3 csv upload endpoint fix

parent b2eab45c
Pipeline #1701 failed with stage
...@@ -3,7 +3,6 @@ module Gargantext.Components.Forest.Tree.Node.Action.Search.SearchBar ...@@ -3,7 +3,6 @@ module Gargantext.Components.Forest.Tree.Node.Action.Search.SearchBar
, searchBar , searchBar
) where ) where
import Data.Tuple.Nested ((/\))
import Effect (Effect) import Effect (Effect)
import Reactix as R import Reactix as R
import Reactix.DOM.HTML as H import Reactix.DOM.HTML as H
......
...@@ -327,6 +327,13 @@ uploadFile session NodeList id JSON { mName, contents } = do ...@@ -327,6 +327,13 @@ uploadFile session NodeList id JSON { mName, contents } = do
task <- post session url body task <- post session url body
pure $ GT.AsyncTaskWithType { task, typ: GT.Form } pure $ GT.AsyncTaskWithType { task, typ: GT.Form }
-} -}
uploadFile session NodeList id CSV { mName, contents } = do
let url = GR.NodeAPI NodeList (Just id) $ GT.asyncTaskTypePath GT.ListCSVUpload
let body = [ Tuple "_wtf_data" (Just contents)
, Tuple "_wtf_filetype" (Just $ show NodeList)
, Tuple "_wtf_name" mName ]
task <- postWwwUrlencoded session url body
pure $ GT.AsyncTaskWithType { task, typ: GT.Form }
uploadFile session nodeType id fileType { mName, contents } = do uploadFile session nodeType id fileType { mName, contents } = do
-- contents <- readAsText blob -- contents <- readAsText blob
task <- postWwwUrlencoded session p bodyParams task <- postWwwUrlencoded session p bodyParams
...@@ -338,7 +345,6 @@ uploadFile session nodeType id fileType { mName, contents } = do ...@@ -338,7 +345,6 @@ uploadFile session nodeType id fileType { mName, contents } = do
Annuaire -> GR.NodeAPI nodeType (Just id) "annuaire" Annuaire -> GR.NodeAPI nodeType (Just id) "annuaire"
NodeList -> case fileType of NodeList -> case fileType of
JSON -> GR.NodeAPI nodeType (Just id) $ GT.asyncTaskTypePath GT.ListUpload JSON -> GR.NodeAPI nodeType (Just id) $ GT.asyncTaskTypePath GT.ListUpload
CSV -> GR.NodeAPI nodeType (Just id) $ GT.asyncTaskTypePath GT.ListCSVUpload
_ -> GR.NodeAPI nodeType (Just id) "" _ -> GR.NodeAPI nodeType (Just id) ""
_ -> GR.NodeAPI nodeType (Just id) "" _ -> GR.NodeAPI nodeType (Just id) ""
......
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