Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
P
purescript-gargantext
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
152
Issues
152
List
Board
Labels
Milestones
Merge Requests
1
Merge Requests
1
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
gargantext
purescript-gargantext
Commits
294c3bcd
Commit
294c3bcd
authored
Feb 16, 2022
by
arturo
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
>>> continue
parent
bbb84c58
Pipeline
#2490
failed with stage
in 0 seconds
Changes
2
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
20 additions
and
2 deletions
+20
-2
Update.purs
...Gargantext/Components/Forest/Tree/Node/Action/Update.purs
+10
-1
API.purs
src/Gargantext/Components/PhyloExplorer/API.purs
+10
-1
No files found.
src/Gargantext/Components/Forest/Tree/Node/Action/Update.purs
View file @
294c3bcd
...
@@ -11,7 +11,7 @@ import Gargantext.Components.Forest.Tree.Node.Tools (formChoiceSafe, submitButto
...
@@ -11,7 +11,7 @@ import Gargantext.Components.Forest.Tree.Node.Tools (formChoiceSafe, submitButto
import Gargantext.Config.REST (RESTError, AffRESTError)
import Gargantext.Config.REST (RESTError, AffRESTError)
import Gargantext.Routes as GR
import Gargantext.Routes as GR
import Gargantext.Sessions (Session, post)
import Gargantext.Sessions (Session, post)
import Gargantext.Types (
NodeType(..), ID
)
import Gargantext.Types (
ID, NodeType(..)
)
import Gargantext.Types as GT
import Gargantext.Types as GT
import Gargantext.Utils.Reactix as R2
import Gargantext.Utils.Reactix as R2
import Reactix as R
import Reactix as R
...
@@ -43,6 +43,7 @@ updateCpt = here.component "update" cpt where
...
@@ -43,6 +43,7 @@ updateCpt = here.component "update" cpt where
cpt props@{ nodeType: Graph } _ = pure $ updateGraph props []
cpt props@{ nodeType: Graph } _ = pure $ updateGraph props []
cpt props@{ nodeType: NodeList } _ = pure $ updateNodeList props []
cpt props@{ nodeType: NodeList } _ = pure $ updateNodeList props []
cpt props@{ nodeType: NodeTexts } _ = pure $ updateTexts props []
cpt props@{ nodeType: NodeTexts } _ = pure $ updateTexts props []
cpt props@{ nodeType: Phylo } _ = pure $ updatePhylo props
cpt props@{ nodeType: _ } _ = pure $ updateOther props []
cpt props@{ nodeType: _ } _ = pure $ updateOther props []
updateDashboard :: R2.Component UpdateProps
updateDashboard :: R2.Component UpdateProps
...
@@ -77,6 +78,14 @@ updateGraphCpt = here.component "updateGraph" cpt where
...
@@ -77,6 +78,14 @@ updateGraphCpt = here.component "updateGraph" cpt where
]
]
(submitButton (UpdateNode $ UpdateNodeParamsGraph { methodGraph: methodGraph' }) dispatch)
(submitButton (UpdateNode $ UpdateNodeParamsGraph { methodGraph: methodGraph' }) dispatch)
updatePhylo :: R2.Leaf UpdateProps
updatePhylo = R2.leaf updatePhyloCpt
updatePhyloCpt :: R.Component UpdateProps
updatePhyloCpt = here.component "updatePhylo" cpt where
cpt { dispatch } _ = do
-- @WIP: no `update/` async route created for phylo update in backend
pure $ H.div {} [ H.text "hello" ]
updateNodeList :: R2.Component UpdateProps
updateNodeList :: R2.Component UpdateProps
updateNodeList = R.createElement updateNodeListCpt
updateNodeList = R.createElement updateNodeListCpt
updateNodeListCpt :: R.Component UpdateProps
updateNodeListCpt :: R.Component UpdateProps
...
...
src/Gargantext/Components/PhyloExplorer/API.purs
View file @
294c3bcd
...
@@ -22,4 +22,13 @@ update :: S.Session -> NodeID -> Unit -> AffRESTError (PhyloDataSet)
...
@@ -22,4 +22,13 @@ update :: S.Session -> NodeID -> Unit -> AffRESTError (PhyloDataSet)
update session nodeId _ = request >>= (_ <#> parsePhyloJSONSet) >>> pure
update session nodeId _ = request >>= (_ <#> parsePhyloJSONSet) >>> pure
where
where
request :: AffRESTError (PhyloJSONSet)
request :: AffRESTError (PhyloJSONSet)
request = S.post session (PhyloAPI nodeId) {}
request = S.post session (PhyloAPI nodeId) options
options =
{ phyloProximity: 0.5
, phyloSynchrony: 0.5
, phyloQuality: 0.5
, timeUnit: 3
, clique: 5
, exportFilter: [ 3 ]
}
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment