[FIX] bug hierarchy params

src/Data/Graph/Clustering/Louvain/CplusPlus.hs

@@ -34,7 +34,7 @@ data LouvainNode = LouvainNode { l_node_id :: Int
 
 
 cLouvain :: Text -> Map (Int, Int) Double -> IO [LouvainNode]
-cLouvain params ms = do
+cLouvain _params ms = do
   let inFileD = "/tmp/louvainData.txt"
   let inFileW = "/tmp/louvainWeights.weights"
   let outBin  = "/tmp/louvainGraph.bin"
@@ -46,7 +46,8 @@ cLouvain params ms = do
   let hierarchy = "/usr/share/louvain/hierarchy"
 
   writeInput inFileD ms
-  let cmdLouvain   = louvain   <> " " <> inFileD <> " " <> unpack params <> " " <> inFileW <> " " <> outBin <> " " <> outTree
+  let cmdLouvain   = louvain   <> " " <> inFileD <> " " <> inFileW <> " " <> outBin <> " " <> outTree
+  -- let cmdLouvain   = louvain   <> " " <> inFileD <> " " <> unpack params <> " " <> inFileW <> " " <> outBin <> " " <> outTree
   let cmdHierarchy = hierarchy <> " " <> outTree <> " -l 1 > " <> outRes
   --pure cmdLouvain
   shell (T.pack cmdLouvain)