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
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
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
Grégoire Locqueville
purescript-gargantext
Commits
75fa6dfa
Commit
75fa6dfa
authored
Jun 17, 2020
by
Alexandre Delanoë
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[FIX BUG] Swagger bug on backend to fix: types homonymes
parent
4ab11d75
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
10 additions
and
10 deletions
+10
-10
Types.purs
...text/Components/Forest/Tree/Node/Action/Update/Types.purs
+10
-10
No files found.
src/Gargantext/Components/Forest/Tree/Node/Action/Update/Types.purs
View file @
75fa6dfa
...
...
@@ -8,10 +8,10 @@ import Data.Maybe (Maybe(..))
import Gargantext.Prelude (class Eq, class Read, class Show)
data UpdateNodeParams = UpdateNodeParamsList { methodList :: Method }
| UpdateNodeParamsGraph { methodGraph :: Metric }
data UpdateNodeParams = UpdateNodeParamsList { methodList :: Method
}
| UpdateNodeParamsGraph { methodGraph ::
Graph
Metric }
| UpdateNodeParamsTexts { methodTexts :: Granularity }
| UpdateNodeParamsBoard { methodBoard :: Charts }
| UpdateNodeParamsBoard { methodBoard :: Charts
}
derive instance eqUpdateNodeParams :: Eq UpdateNodeParams
...
...
@@ -49,24 +49,24 @@ instance encodeJsonMethod :: Argonaut.EncodeJson Method where
encodeJson = genericEnumEncodeJson
----------------------------------------------------------------------
data Metric = Order1 | Order2
data
Graph
Metric = Order1 | Order2
derive instance generic
Metric :: Generic
Metric _
derive instance generic
GraphMetric :: Generic Graph
Metric _
derive instance eq
Metric :: Eq
Metric
derive instance eq
GraphMetric :: Eq Graph
Metric
instance show
Metric :: Show
Metric where
instance show
GraphMetric :: Show Graph
Metric where
show = genericShow
instance read
Metric :: Read
Metric where
instance read
GraphMetric :: Read Graph
Metric where
read "Order1" = Just Order1
read "Order2" = Just Order2
read _ = Nothing
instance decodeJson
Metric :: Argonaut.DecodeJson
Metric where
instance decodeJson
GraphMetric :: Argonaut.DecodeJson Graph
Metric where
decodeJson = genericEnumDecodeJson
instance encodeJson
Metric :: Argonaut.EncodeJson
Metric where
instance encodeJson
GraphMetric :: Argonaut.EncodeJson Graph
Metric where
encodeJson = genericEnumEncodeJson
----------------------------------------------------------------------
...
...
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