[PHYLO] adding GroupId

1aae8a6f · Alexandre Delanoë · 07424229 · 1aae8a6f
Commit 1aae8a6f authored Mar 30, 2018 by Alexandre Delanoë
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 5 deletions

Phylo.hs src/Gargantext/Types/Phylo.hs +7 -5

No files found.
--- a/src/Gargantext/Types/Phylo.hs
+++ b/src/Gargantext/Types/Phylo.hs
@@ -67,9 +67,10 @@ type PhyloLevel = [PhyloGroup]
 -- | PhyloGroup : group of ngrams at each level and step
 -- Label : maybe has a label as text
 -- Ngrams: set of terms that build the group
-- Temporal    Parents|Childs: directed and weighted link to Parents|Childs (Temporal axis)
+-- Period Parents|Childs: directed and weighted link to Parents|Childs (Temporal Period axis)
-- Granularity Parents|Childs: directed and weighted link to Parents|Childs (Granularity axis)
+-- Level  Parents|Childs: directed and weighted link to Parents|Childs (Level Granularity axis)
-data PhyloGroup = PhyloGroup { _phyloGroupLabel         :: Maybe Text
+data PhyloGroup = PhyloGroup { _phyloGroupId            :: GroupId
+                             , _phyloGroupLabel         :: Maybe Text
                             , _phyloGroupNgrams        :: [NgramId]
                             , _phyloGroupPeriodParents :: [Edge]
@@ -79,8 +80,9 @@ data PhyloGroup = PhyloGroup { _phyloGroupLabel         :: Maybe Text
                             , _phyloGroupLevelChilds   :: [Edge]
                             } deriving (Generic)
-type Edge   = (NgramId, Weight)
+type Edge   = (PhyloGroupId, Weight)
-type Weight = Double
+type Weight       = Double
+type PhyloGroupId = Int
 -- | JSON instances
 $(deriveJSON (unPrefix "_phylo"       ) ''Phylo       )