Commit 657b356f authored by Alexandre Delanoë's avatar Alexandre Delanoë

[REFACT][Tree] NodeType Download (more: corpus/texts with question and todo)

parent 88e1d796
...@@ -586,14 +586,26 @@ actionDownload :: NodeType -> ID -> Session -> R.Hooks R.Element ...@@ -586,14 +586,26 @@ actionDownload :: NodeType -> ID -> Session -> R.Hooks R.Element
actionDownload NodeList id session = downloadButton href label info actionDownload NodeList id session = downloadButton href label info
where where
href = url session $ Routes.NodeAPI GT.NodeList (Just id) "" href = url session $ Routes.NodeAPI GT.NodeList (Just id) ""
label = "Download list" label = "Download List"
info = "Info about the JSON format" info = "Info about the List as JSON format"
actionDownload GT.Graph id session = downloadButton href label info actionDownload GT.Graph id session = downloadButton href label info
where where
href = url session $ Routes.NodeAPI GT.Graph (Just id) "gexf" href = url session $ Routes.NodeAPI GT.Graph (Just id) "gexf"
label = "Download GEXF" label = "Download Graph"
info = "Info about the GEXF format" info = "Info about the Graph as GEXF format"
actionDownload GT.Corpus id session = downloadButton href label info
where
href = url session $ Routes.NodeAPI GT.Corpus (Just id) "export"
label = "Download Corpus"
info = "TODO: fix the backend route"
actionDownload GT.Texts id session = downloadButton href label info
where
href = url session $ Routes.NodeAPI GT.Texts (Just id) ""
label = "Download texts"
info = "TODO: fix the backend route. What is the expected result ?"
actionDownload _ _ _ = pure $ fragmentPT $ "Soon, you will be able to dowload your file here " actionDownload _ _ _ = pure $ fragmentPT $ "Soon, you will be able to dowload your file here "
...@@ -650,4 +662,3 @@ docOf nodeType = ["More information on " <> show nodeType] ...@@ -650,4 +662,3 @@ docOf nodeType = ["More information on " <> show nodeType]
fragmentPT text = H.div {style: {margin: "10px"}} [H.text text] fragmentPT text = H.div {style: {margin: "10px"}} [H.text text]
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