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
133
Issues
133
List
Board
Labels
Milestones
Merge Requests
5
Merge Requests
5
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
4535dd44
Commit
4535dd44
authored
Jun 15, 2023
by
Alexandre Delanoë
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[FIX] Order 2
parent
e25ee97d
Changes
2
Show whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
5 additions
and
3 deletions
+5
-3
Update.purs
...Gargantext/Components/Forest/Tree/Node/Action/Update.purs
+1
-1
Types.purs
...text/Components/Forest/Tree/Node/Action/Update/Types.purs
+4
-2
No files found.
src/Gargantext/Components/Forest/Tree/Node/Action/Update.purs
View file @
4535dd44
...
@@ -98,7 +98,7 @@ updateGraphCpt = here.component "updateGraph" cpt where
...
@@ -98,7 +98,7 @@ updateGraphCpt = here.component "updateGraph" cpt where
callback = dispatch >=> \_ -> dispatch CloseBox
callback = dispatch >=> \_ -> dispatch CloseBox
pure $ panel [ H.text "Show subjects with Order1 or concepts with Order2 ?"
pure $ panel [ H.text "Show subjects with Order1 or concepts with Order2 ?"
, formChoiceSafe { items: [Order1, Order2]
, formChoiceSafe { items: [Order1, Order2
_A, Order2_B
]
, default: methodGraphMetric'
, default: methodGraphMetric'
, callback: \val -> T.write_ val methodGraphMetric
, callback: \val -> T.write_ val methodGraphMetric
, print: show } []
, print: show } []
...
...
src/Gargantext/Components/Forest/Tree/Node/Action/Update/Types.purs
View file @
4535dd44
...
@@ -64,13 +64,15 @@ instance Read Method where
...
@@ -64,13 +64,15 @@ instance Read Method where
read _ = Nothing
read _ = Nothing
----------------------------------------------------------------------
----------------------------------------------------------------------
data GraphMetric = Order1 | Order2
data GraphMetric = Order1 | Order2
| Order2_A | Order2_B
derive instance Generic GraphMetric _
derive instance Generic GraphMetric _
derive instance Eq GraphMetric
derive instance Eq GraphMetric
instance Show GraphMetric where show = genericShow
instance Show GraphMetric where show = genericShow
instance Read GraphMetric where
instance Read GraphMetric where
read "Order1" = Just Order1
read "Order1" = Just Order1
read "Order2" = Just Order2
read "Order2" = Just Order2_B
read "Order2_A" = Just Order2_A
read "Order2_B" = Just Order2_B
read _ = Nothing
read _ = Nothing
instance JSON.ReadForeign GraphMetric where readImpl = JSONG.enumSumRep
instance JSON.ReadForeign GraphMetric where readImpl = JSONG.enumSumRep
instance JSON.WriteForeign GraphMetric where writeImpl = JSON.writeImpl <<< show
instance JSON.WriteForeign GraphMetric where writeImpl = JSON.writeImpl <<< show
...
...
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