fix the shape

5f661185 · qlobbe · Alfredo Di Napoli · 93053bc1 · 5f661185
Commit 5f661185 authored Jun 28, 2023 by qlobbe Committed by Alfredo Di Napoli Jun 28, 2023
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

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

No files found.
--- a/src/Gargantext/Core/Viz/Phylo/PhyloExport.hs
+++ b/src/Gargantext/Core/Viz/Phylo/PhyloExport.hs
@@ -110,7 +110,8 @@ periodToDotNode prd prd' =
 groupToDotNode :: Vector Ngrams -> PhyloGroup -> Int -> Dot DotId
 groupToDotNode fdt g bId =
    node (groupIdToDotId $ getGroupId g)
-                     ([ toAttr "nodeType" "group"
+                     ([Shape Square]
+                      <> [ toAttr "nodeType" "group"
                         , toAttr "gid" (groupIdToDotId $ getGroupId g)
                         , toAttr "from" (pack $ show (fst $ g ^. phylo_groupPeriod))
                         , toAttr "to"   (pack $ show (snd $ g ^. phylo_groupPeriod))