[FLouvain] glue/klue type

clustering-louvain.cabal

@@ -4,7 +4,7 @@ cabal-version: 1.12
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: 94042062aa43112f36f9b8d21fcddf66dd7d8201d0e3d64a23cc48a34878a1de
+-- hash: 0eb2bbc80a3d9343540c4d5c0c2ff6adee085a9a75364b8f5344890891c5b781
 
 name:           clustering-louvain
 version:        0.1.0.0
@@ -42,6 +42,5 @@ library
       Data.Graph.Clustering.Example
       Data.Graph.Clustering.FLouvain
       Data.Graph.Clustering.HLouvain
-      Data.Graph.Clustering.HyperGraph
       Paths_clustering_louvain
   default-language: Haskell2010

src/Data/Graph/Clustering/FLouvain.hs

@@ -35,6 +35,10 @@ import Data.Graph.Inductive
 -- sequentially for all nodes until no further improvement can be achieved and
 -- the first phase is then complete.
 
+--  "glue" : function to gather/merge communities
+--  "klue" : function to split communities
+data ClusteringMethod = Glue | Klue
+
 
 -- | Find LNode of a node (i.e. a node with label)
 lnode :: (Graph gr) => gr a b -> Node -> Maybe (LNode a)