fix the shape and the font

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

Showing with 1 addition and 1 deletion

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

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