Skip to content

haskell-gargantext
haskell-gargantext
Commit c77a8b8d authored by qlobbe's avatar qlobbe
Browse files
Options

add granularity in phylo header

parent 40911ff3
Show whitespace changes
Inline Side-by-side
Showing with 1 addition and 0 deletions
src/Gargantext/Core/Viz/Phylo/PhyloExport.hs
View file @ c77a8b8d
...@@ -219,6 +219,7 @@ exportToDot phylo export = ...@@ -219,6 +219,7 @@ exportToDot phylo export =
,(toAttr (fromStrict "phyloGroups") $ pack $ show (length $ export ^. export_groups)) ,(toAttr (fromStrict "phyloGroups") $ pack $ show (length $ export ^. export_groups))
,(toAttr (fromStrict "phyloSources") $ pack $ show (Vector.toList $ getSources phylo)) ,(toAttr (fromStrict "phyloSources") $ pack $ show (Vector.toList $ getSources phylo))
,(toAttr (fromStrict "phyloTimeScale") $ pack $ getTimeScale 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)) -- ,(toAttr (fromStrict "phyloTermsFreq") $ pack $ show (toList $ _phylo_lastTermFreq phylo))
]) ])
......
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