[FEAT] Bulding phylo with graphviz

dc29199c · Alexandre Delanoë · e1b6117a · dc29199c · dc29199c · dc29199c
Commit dc29199c authored Feb 11, 2022 by Alexandre Delanoë
Showing with 149 additions and 147 deletions

pkgs.nix nix/pkgs.nix +1 -0

package.yaml package.yaml +1 -0

PhyloExport.hs src/Gargantext/Core/Viz/Phylo/PhyloExport.hs +1 -1

TemporalMatching.hs src/Gargantext/Core/Viz/Phylo/TemporalMatching.hs +146 -146

No files found.
--- a/nix/pkgs.nix
+++ b/nix/pkgs.nix
@@ -28,6 +28,7 @@ rec {
    #    gfortran7.cc.lib
    expat
    icu
+    graphviz
  ];
  libPaths = pkgs.lib.makeLibraryPath nonhsBuildInputs;
  shellHook = ''

--- a/package.yaml
+++ b/package.yaml
@@ -203,6 +203,7 @@ library:
  - postgresql-simple
  - pretty-simple
  - probability
+  - process
  - product-profunctors
  - profunctors
  - protolude

--- a/src/Gargantext/Core/Viz/Phylo/PhyloExport.hs
+++ b/src/Gargantext/Core/Viz/Phylo/PhyloExport.hs
@@ -368,7 +368,7 @@ sortByBirthDate order export =
 processSort :: Sort -> SeaElevation -> PhyloExport -> PhyloExport
 processSort sort' elev export = case sort' of
    ByBirthDate o -> sortByBirthDate o export
-    ByHierarchy   -> export & export_branches .~ (branchToIso' (_cons_start elev) (_cons_step elev)
+    ByHierarchy _ -> export & export_branches .~ (branchToIso' (_cons_start elev) (_cons_step elev)
                       $ sortByHierarchy 0 (export ^. export_branches))



--- a/src/Gargantext/Core/Viz/Phylo/TemporalMatching.hs
+++ b/src/Gargantext/Core/Viz/Phylo/TemporalMatching.hs