Skip to content

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

[FEAT] Phylo 1 click

parent 58e5520c
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 1 deletion
src/Gargantext/Core/Viz/Phylo.hs
View file @ 3e862993
...@@ -201,6 +201,7 @@ data PhyloSubConfig = ...@@ -201,6 +201,7 @@ data PhyloSubConfig =
, _sc_timeUnit :: TimeUnit , _sc_timeUnit :: TimeUnit
, _sc_clique :: Cluster , _sc_clique :: Cluster
, _sc_exportFilter :: Double , _sc_exportFilter :: Double
, _sc_defaultMode :: Bool
} }
deriving (Show,Generic,Eq) deriving (Show,Generic,Eq)
...@@ -212,7 +213,6 @@ subConfig2config subConfig = defaultConfig { similarity = WeightedLogJaccard ...@@ -212,7 +213,6 @@ subConfig2config subConfig = defaultConfig { similarity = WeightedLogJaccard
, timeUnit = _sc_timeUnit subConfig , timeUnit = _sc_timeUnit subConfig
, clique = _sc_clique subConfig , clique = _sc_clique subConfig
, exportFilter = [ByBranchSize $ _sc_exportFilter subConfig] , exportFilter = [ByBranchSize $ _sc_exportFilter subConfig]
, defaultMode = True
} }
------------------------------------------------------------------------ ------------------------------------------------------------------------
......
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