[Types] ClusterNode

src/Graph/BAC/ProxemyOptim.hs

@@ -68,11 +68,6 @@ import qualified Data.Map.Strict as Map
 
 ----------------------------------------------------------------
 
-data ClusterNode = ClusterNode
-  { cl_node_id :: Int
-  , cl_community_id :: Int
-  } deriving Show
-
 defaultClustering :: Map (Int, Int) Double -> [ClusterNode]
 defaultClustering adjmap = withG g $ \fg ->
   case clusteringOptim len fg beta gc of

src/Graph/Types.hs

@@ -21,6 +21,7 @@ import Data.IntMap (IntMap)
 import qualified Data.Matrix.Sparse.Static    as Sparse
 import qualified Data.Vector.Unboxed          as VU
 import qualified Numeric.LinearAlgebra.Static as Dense
+import Protolude hiding (sum, natVal)
 
 -- | Main Types use in this libray
 
@@ -32,3 +33,11 @@ type Graph a b = DGIP.Gr a b
 -- | Type for Matrix computation optimizations (with Eigen)
 type MatrixD          n = Dense.L n n
 type MatrixS          n = Sparse.Matrix n n Double
+
+
+data ClusterNode = ClusterNode
+  { cl_node_id      :: Int
+  , cl_community_id :: Int
+  } deriving Show
+
+