Skip to content

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

fix the shape and the font

parent 6931956d
Pipeline #4313 failed with stages
          in 42 minutes and 29 seconds
          Hide whitespace changes
          Inline Side-by-side
          Showing with 1 addition and 1 deletion
          src/Gargantext/Core/Viz/Phylo/PhyloExport.hs
          View file @ 95553245
          ...@@ -110,7 +110,7 @@ periodToDotNode prd prd' = ...@@ -110,7 +110,7 @@ periodToDotNode prd prd' =
          groupToDotNode :: Vector Ngrams -> PhyloGroup -> Int -> Dot DotId groupToDotNode :: Vector Ngrams -> PhyloGroup -> Int -> Dot DotId
          groupToDotNode fdt g bId = groupToDotNode fdt g bId =
          node (groupIdToDotId $ getGroupId g) node (groupIdToDotId $ getGroupId g)
          ([Shape Square] ([FontName "Arial", Shape Square, penWidth 4]
          <> [ toAttr "nodeType" "group" <> [ toAttr "nodeType" "group"
          , toAttr "gid" (groupIdToDotId $ getGroupId g) , toAttr "gid" (groupIdToDotId $ getGroupId g)
          , toAttr "from" (pack $ show (fst $ g ^. phylo_groupPeriod)) , toAttr "from" (pack $ show (fst $ g ^. phylo_groupPeriod))
          ......
          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