Skip to content

haskell-gargantext
haskell-gargantext
Commit dc29199c authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[FEAT] Bulding phylo with graphviz

parent e1b6117a
Expand all Hide whitespace changes
Inline Side-by-side
Showing with 149 additions and 147 deletions
nix/pkgs.nix
View file @ dc29199c
...@@ -28,6 +28,7 @@ rec { ...@@ -28,6 +28,7 @@ rec {
# gfortran7.cc.lib # gfortran7.cc.lib
expat expat
icu icu
graphviz
]; ];
libPaths = pkgs.lib.makeLibraryPath nonhsBuildInputs; libPaths = pkgs.lib.makeLibraryPath nonhsBuildInputs;
shellHook = '' shellHook = ''
......
package.yaml
View file @ dc29199c
...@@ -203,6 +203,7 @@ library: ...@@ -203,6 +203,7 @@ library:
- postgresql-simple - postgresql-simple
- pretty-simple - pretty-simple
- probability - probability
- process
- product-profunctors - product-profunctors
- profunctors - profunctors
- protolude - protolude
......
src/Gargantext/Core/Viz/Phylo/PhyloExport.hs
View file @ dc29199c
...@@ -368,7 +368,7 @@ sortByBirthDate order export = ...@@ -368,7 +368,7 @@ sortByBirthDate order export =
processSort :: Sort -> SeaElevation -> PhyloExport -> PhyloExport processSort :: Sort -> SeaElevation -> PhyloExport -> PhyloExport
processSort sort' elev export = case sort' of processSort sort' elev export = case sort' of
ByBirthDate o -> sortByBirthDate o export 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)) $ sortByHierarchy 0 (export ^. export_branches))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment