[FEAT][MAXCLIQ] adding type.

dcd949dd · Alexandre Delanoë · fff52842 · dcd949dd
Commit dcd949dd authored Oct 28, 2019 by Alexandre Delanoë
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 0 deletions

MaxClique.hs src/Gargantext/Viz/Graph/MaxClique.hs +1 -0

No files found.
--- a/src/Gargantext/Viz/Graph/MaxClique.hs
+++ b/src/Gargantext/Viz/Graph/MaxClique.hs
@@ -66,6 +66,7 @@ type Neighbor = Node
 maxCliques :: Graph -> [[Node]]
 maxCliques g = map (\n -> subMaxCliques g (n:ns)) ns & concat & takeMax
  where
+    ns :: [Node]
    ns = sortOn (degree g) $ nodes g

    subMaxCliques :: Graph -> [Node] -> [[Node]]