[FIX] hierarchy (need to fix the binaries).

clustering-louvain.cabal

--- This file has been generated from package.yaml by hpack version 0.20.0.
+-- This file has been generated from package.yaml by hpack version 0.28.2.
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: 716223af4ecf0d8fb10f620eda2763c4dd15bb5a65fb15ca2bf2d416e052a9a4
+-- hash: c6cbb5a936351b947ef7587a076b5b97dc259c91048519e5fc0abdfae9f0e4b8
 
 name:           clustering-louvain
 version:        0.1.0.0
@@ -38,38 +38,3 @@ library
   other-modules:
       Paths_clustering_louvain
   default-language: Haskell2010
-
-test-suite louvain-doctest
-  type: exitcode-stdio-1.0
-  main-is: Main.hs
-  hs-source-dirs:
-      src-doctest
-  ghc-options: -Wall -Werror -threaded -rtsopts -with-rtsopts=-N -Wmissing-signatures
-  build-depends:
-      Glob
-    , QuickCheck
-    , base
-    , containers
-    , doctest
-    , extra
-    , louvain
-    , text
-  other-modules:
-      Paths_clustering_louvain
-  default-language: Haskell2010
-
-test-suite louvain-test
-  type: exitcode-stdio-1.0
-  main-is: Spec.hs
-  hs-source-dirs:
-      src-test
-  ghc-options: -Wall -threaded -rtsopts -with-rtsopts=-N
-  build-depends:
-      base
-    , containers
-    , extra
-    , louvain
-    , text
-  other-modules:
-      Paths_clustering_louvain
-  default-language: Haskell2010

package.yaml

@@ -34,29 +34,29 @@ library:
     - hxt
     - turtle
     - foldl
-tests:
-  louvain-test:
-    main: Spec.hs
-    source-dirs: src-test
-    ghc-options:
-    - -threaded
-    - -rtsopts
-    - -with-rtsopts=-N
-    dependencies:
-    - base
-    - louvain
-  louvain-doctest:
-    main: Main.hs
-    source-dirs: src-doctest
-    ghc-options:
-    - -Werror
-    - -threaded
-    - -rtsopts
-    - -with-rtsopts=-N
-    - -Wmissing-signatures
-    dependencies:
-    - doctest
-    - Glob
-    - QuickCheck
-    - base
-    - louvain
+#tests:
+#  louvain-test:
+#    main: Spec.hs
+#    source-dirs: src-test
+#    ghc-options:
+#    - -threaded
+#    - -rtsopts
+#    - -with-rtsopts=-N
+#    dependencies:
+#    - base
+#    - louvain
+#  louvain-doctest:
+#    main: Main.hs
+#    source-dirs: src-doctest
+#    ghc-options:
+#    - -Werror
+#    - -threaded
+#    - -rtsopts
+#    - -with-rtsopts=-N
+#    - -Wmissing-signatures
+#    dependencies:
+#    - doctest
+#    - Glob
+#    - QuickCheck
+#    - base
+#    - louvain

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

@@ -40,15 +40,23 @@ cLouvain ms = do
   let inFileD = "/tmp/louvainData.txt"
   let inFileW = "/tmp/louvainWeights.weights"
   let outBin  = "/tmp/louvainGraph.bin"
-  let outRes  = "/tmp/louvainGraph.tree"
-  
-  let louvain = "/usr/share/louvain/louvain"
+  let outTree  = "/tmp/louvainGraph.tree"
   
+  let outRes  = "/tmp/louvainGraph.res"
+
+  let louvain   = "/usr/share/louvain/louvain"
+  let hierarchy = "/usr/share/louvain/hierarchy"
+
   writeInput inFileD ms
-  let cmdLouvain = louvain <> " " <> inFileD <> " " <> inFileW <> " " <> outBin <> " " <> outRes
+  let cmdLouvain   = louvain   <> " " <> inFileD <> " " <> inFileW <> " " <> outBin <> " " <> outTree
+  let cmdHierarchy = hierarchy <> " " <> outTree <> " -l 1 > " <> outRes
   --pure cmdLouvain
   shell (T.pack cmdLouvain)
+  shell (T.pack cmdHierarchy)
+  
   myResult <- readOutput outRes
+
+  let clean = "rm" <> " " <> L.intercalate " " [inFileD, inFileW, outBin, outTree, outRes]
   pure myResult