[ILouvain] delNode

src/Data/Graph/Clustering/ILouvain.hs

@@ -90,7 +90,7 @@ mv g [a,b] [ ] = case match a g of
   (Just (p, n, l, s), g1) -> case match b l of
     (Nothing, _) -> panic "mv: snd Node of Path does not exist"
     (Just (p',n',l',s'), g2)  -> (p', n', g2 , s')
-                               -- & (p , n , empty, s )
+                               -- & (p , n , delNode b l, s )
                                & g1
 
 mv g (x:xs) (y:ys) = panic "mv: path too long"