add granularity in phylo header

c77a8b8d · qlobbe · 40911ff3 · c77a8b8d
Commit c77a8b8d authored May 04, 2022 by qlobbe
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 0 deletions

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

No files found.
--- a/src/Gargantext/Core/Viz/Phylo/PhyloExport.hs
+++ b/src/Gargantext/Core/Viz/Phylo/PhyloExport.hs
@@ -219,6 +219,7 @@ exportToDot phylo export =
                     ,(toAttr (fromStrict "phyloGroups") $ pack $ show (length $ export ^. export_groups))
                     ,(toAttr (fromStrict "phyloSources") $ pack $ show (Vector.toList $ getSources phylo))
                     ,(toAttr (fromStrict "phyloTimeScale") $ pack $ getTimeScale phylo)
+                     ,(toAttr (fromStrict "phyloGranularity") $ pack $ show (_qua_granularity $ phyloQuality $ getConfig phylo))
                     -- ,(toAttr (fromStrict "phyloTermsFreq") $ pack $ show (toList $ _phylo_lastTermFreq phylo))
                     ])