[FIX] without weights.

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

@@ -55,7 +55,8 @@ cLouvain ms = do
 writeInput :: FilePath -> Map (Int, Int) Double -> IO ()
 writeInput fp ns = writeFile fp (unlines ns')
   where
-    ns' = map (\((n1,n2), w) -> show n1 <> " " <> show n2 <> " " <> show w) (toList ns)
+    ns' = map (\((n1,n2), _) -> show n1 <> " " <> show n2) (toList ns)
+    --ns' = map (\((n1,n2), w) -> show n1 <> " " <> show n2 <> " " <> show w) (toList ns)
 
 louvainNode :: [Text] -> LouvainNode
 louvainNode [n1,n2] = LouvainNode (read $ T.unpack n1) (read $ T.unpack n2)