Commit adee098c authored by Alexandre Delanoë's avatar Alexandre Delanoë

[FIX][PHYLO] SubConfi simplification

parent 40911ff3
...@@ -203,23 +203,23 @@ data PhyloConfig = ...@@ -203,23 +203,23 @@ data PhyloConfig =
------------------------------------------------------------------------ ------------------------------------------------------------------------
data PhyloSubConfig = data PhyloSubConfig =
PhyloSubConfig { _sc_phyloProximity :: Proximity PhyloSubConfig { _sc_phyloProximity :: Double
, _sc_phyloSynchrony :: Synchrony , _sc_phyloSynchrony :: Double
, _sc_phyloQuality :: Quality , _sc_phyloQuality :: Double
, _sc_timeUnit :: TimeUnit , _sc_timeUnit :: TimeUnit
, _sc_clique :: Clique , _sc_clique :: Clique
, _sc_exportFilter :: [Filter] , _sc_exportFilter :: Double
} }
deriving (Show,Generic,Eq) deriving (Show,Generic,Eq)
subConfig2config :: PhyloSubConfig -> PhyloConfig subConfig2config :: PhyloSubConfig -> PhyloConfig
subConfig2config subConfig = defaultConfig { phyloProximity = _sc_phyloProximity subConfig subConfig2config subConfig = defaultConfig { phyloProximity = WeightedLogJaccard $ _sc_phyloProximity subConfig
, phyloSynchrony = _sc_phyloSynchrony subConfig , phyloSynchrony = ByProximityThreshold (_sc_phyloSynchrony subConfig) 0 AllBranches MergeAllGroups
, phyloQuality = _sc_phyloQuality subConfig , phyloQuality = Quality (_sc_phyloQuality subConfig) 1
, timeUnit = _sc_timeUnit subConfig , timeUnit = _sc_timeUnit subConfig
, clique = _sc_clique subConfig , clique = _sc_clique subConfig
, exportFilter = _sc_exportFilter subConfig , exportFilter = [ByBranchSize $ _sc_exportFilter subConfig]
} }
------------------------------------------------------------------------ ------------------------------------------------------------------------
......
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