Skip to content

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

work in progress

parent adf09142
Pipeline #590 failed with stage
    Show whitespace changes
    Inline Side-by-side
    Showing with 1 addition and 1 deletion
    src/Gargantext/Viz/Phylo/PhyloExport.hs
    View file @ 59c75314
    ......@@ -138,7 +138,7 @@ groupToDotNode fdt g =
    toDotEdge :: DotId -> DotId -> Text.Text -> EdgeType -> Dot DotId
    toDotEdge source target lbl edgeType = edge source target
    (case edgeType of
    GroupToGroup -> [ Width 2, Color [toWColor Black], Constraint True
    GroupToGroup -> [ Width 10, Color [toWColor Black], Constraint True
    , Label (StrLabel $ fromStrict lbl)]
    BranchToGroup -> [ Width 3, Color [toWColor Black], ArrowHead (AType [(ArrMod FilledArrow RightSide,DotArrow)])
    , Label (StrLabel $ fromStrict lbl)]
    ......
    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