Skip to content

haskell-gargantext
haskell-gargantext
Commit 57d2cd25 authored by Fabien Manière's avatar Fabien Manière
Browse files
Options

adding weight attribute

parent f64be6b0
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 0 deletions
src/Gargantext/Core/Viz/Graph/GEXF.hs
View file @ 57d2cd25
...@@ -64,6 +64,7 @@ graphToXML (G.Graph { .. }) = root _graph_nodes _graph_edges ...@@ -64,6 +64,7 @@ graphToXML (G.Graph { .. }) = root _graph_nodes _graph_edges
where where
params = XML.attr "id" node_id params = XML.attr "id" node_id
<> XML.attr "label" node_label <> XML.attr "label" node_label
<> XML.attr "weight" (show node_size)
sizeParams = XML.attr "value" (show node_size) sizeParams = XML.attr "value" (show node_size)
edges :: (Monad m) => [G.Edge] -> ConduitT i XML.Event m () edges :: (Monad m) => [G.Edge] -> ConduitT i XML.Event m ()
......
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