[ILouvain] fix simpler type.

0dc7aa17 · Alexandre Delanoë · 0b56cd5e · 0dc7aa17
Commit 0dc7aa17 authored Apr 03, 2020 by Alexandre Delanoë
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 3 deletions

ILouvain.hs src/Data/Graph/Clustering/ILouvain.hs +2 -3

No files found.
--- a/src/Data/Graph/Clustering/ILouvain.hs
+++ b/src/Data/Graph/Clustering/ILouvain.hs
@@ -58,9 +58,8 @@ type GraphContexts'  a b c = Gr [Context [Context () a] b] c


 ------------------------------------------------------------------------
-type MetaGraph a = Gr [TreeContext a] a
-data TreeContext a   = EmptyContext () | MetaContext [TreeContext a] a
-type MetaContext a b = Context a b
+type MetaGraph   a = Gr [TreeContext a] a
+data TreeContext a = EmptyContext () | Context [TreeContext a] a
 ------------------------------------------------------------------------