[ILouvain] more func/instances to be defined.

src/Data/Graph/Clustering/ILouvain.hs

@@ -159,10 +159,11 @@ class IsHyperGraph a where
   imodularity_ :: a -> a -> [Node] -> Double
   gmodularity_ :: a -> a -> Double
   toHyperGraph_ :: Gr () Double -> a
-  toNodes_      :: a -> [Node]
+
+  toNodes_      :: a -> [[Node]]
   isFlat_       :: a -> Bool
-------------------------------------------------------------------------
 
+------------------------------------------------------------------------
 hnodes :: HyperGraph a b -> Node -> [Node]
 hnodes g n = case match n g of
   (Nothing          , _) -> []
@@ -170,15 +171,22 @@ hnodes g n = case match n g of
 
 hnodes' :: HyperGraph' a b c -> Node -> [Node]
 hnodes' g n = concat $ map (hnodes g) $ hnodes g n
-
 ------------------------------------------------------------------------
-
 toNodes :: HyperGraph a a -> [[Node]]
 toNodes g = map (hnodes g) (nodes g)
 
+toNodes' :: HyperGraph' a b c -> [[Node]]
+toNodes' g = map (hnodes' g) (nodes g)
+------------------------------------------------------------------------
 isFlat :: HyperGraph a b -> Bool
 isFlat g = all (isEmpty . snd) (labNodes g)
 
+-- flatten
+{-
+isFlat' :: HyperGraph' a b c-> Bool
+isFlat' g = all (isFlat . concat . (map nodes) . snd) (labNodes g)
+-}
+
 
 {-
 hdeg :: Graph gr => gr a b -> Node -> Maybe Int