Commit d8847fa0 authored by Alexandre Delanoë's avatar Alexandre Delanoë

Merge branch 'dev-list-get' of...

Merge branch 'dev-list-get' of ssh://gitlab.iscpif.fr:20022/gargantext/purescript-gargantext into dev
parents 47e88219 ba7b02ec
......@@ -417,6 +417,13 @@ panelActionCpt = R.hooksComponent "G.C.F.T.N.B.panelAction" cpt
pure $ uploadTermListView {dispatch, id, nodeType: GT.NodeList, session}
cpt {action: Upload, dispatch, id, nodeType, session} _ = do
pure $ uploadFileView {dispatch, id, nodeType, session}
cpt {action: Download, id, nodeType: NodeList, session} _ = do
let href = url session $ Routes.NodeAPI GT.Node (Just id) ""
pure $ R.fragment [
H.span { className: "row" } [
H.a { className: "col-md-12", href, target: "_blank" } [ H.text "Download file" ]
]
]
cpt {action: Download} _ = do
pure $ fragmentPT "Soon, you will be able to dowload your file here"
cpt props@{action: SearchBox, search, session} _ = do
......
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