diff --git a/bin/gargantext-adaptative-phylo/Main.hs b/bin/gargantext-adaptative-phylo/Main.hs index a0b0d45874e1ece2862c782d5db577f204124681..8598912998abe8f468b64f108ae9e39d3d64957b 100644 --- a/bin/gargantext-adaptative-phylo/Main.hs +++ b/bin/gargantext-adaptative-phylo/Main.hs @@ -170,14 +170,25 @@ main = do let sensibility = case (phyloProximity config) of Hamming -> undefined - WeightedLogJaccard s -> (show s) + WeightedLogJaccard s -> (show s) + + let sync = case (phyloSynchrony config) of + ByProximityThreshold t _ _ _ -> (show t) + ByProximityDistribution _ _ -> undefined + + -- to be improved + -- let br_length = case (take 1 $ exportFilter config) of + -- ByBranchSize t -> (show t) + let output = (outputPath config) <> (unpack $ phyloName config) - <> "-scale_" <> (show (_qua_granularity $ phyloQuality config)) - <> "-level_" <> (show (phyloLevel config)) <> "-" <> clq - <> "-sens_" <> sensibility + <> "-level_" <> (show (phyloLevel config)) + <> "-sens_" <> sensibility + -- <> "-lenght_" <> br_length + <> "-scale_" <> (show (_qua_granularity $ phyloQuality config)) + <> "-sync_" <> sync <> ".dot" dotToFile output dot